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COMPUTER PROGRAMS FOR PREDICTING SUPERSONIC AND HYPERSONIC 
INTERFERENCE FLOW FIELDS AND HEATING 

By Dana J. Morris and J. Wayne Keyes 
Langley Research Center 

SUMMARY 


This paper describes computer programs which calculate peak pressure and heating 
for six types of two-dimensional interference flow patterns. These programs were used 
to obtain the theoretical values used in NASA TN D-7139. Depending upon the type of 
inviscid flow pattern, the pressure and heat -transfer peaks occurring at the impingement 
point are a result of shock — boundary -layer interaction, free shear -layer attachment, or 
supersonic jet impingement. Peak-heating correlations for laminar and turbulent shock- 
boundary -layer interactions are included in the programs for types I, II, V, and VI inter- 
ference patterns. Heating correlations for laminar and turbulent reattaching shear layers 
obtained from separation studies are included in the program for type IH interference. 

INTRODUCTION 

Shock interference heating is a problem in the design of the thermal protection sys- 
tem and structural components of supersonic and hypersonic vehicles (refs. 1 and 2) such 
as the space shuttle, hypersonic research aircraft, and hypersonic cruise vehicle. Small 
areas of high heat transfer and pressure can occur on the vehicle surface because of the 
influence of an impinging shock upon the local flow. Edney (ref. 1) made a detailed study 
of interference flows and defined six types of shock interference patterns. He found that 
the peaks of surface pressure and heat transfer are caused by shock — boundary -layer 
interactions, free shear -layer attachments, or supersonic jet impingement, depending on 
the type of pattern. 

Edney also developed flow models and methods of calculating the flow field for each 
type. Methods were developed to compute the peak pressure for the shear -layer attach- 
ment and the peak pressure and heat transfer for the supersonic jet impingement. Semi- 
empirical methods for calculating peak pressures and heat transfer for all six types of 
interference patterns were developed in reference 2 by using the flow models of refer- 
ence 1 and the heat -transfer correlations of Bushnell and Weinstein (shear -layer attach- 
ment, ref. 3) and Markarian (shock -boundary interaction, ref. 4). Methods similar to 
those of reference 1 are also discussed in reference 5. 



This report describes computer programs generated during the investigation 
reported in reference 2 for six types of interference patterns. The flow model for each 
type was developed on the basis of two-dimensional flow. Perfect-gas relations from 
reference 6 were used to obtain the flow conditions in the inviscid flow field. Sutherland's 
viscosity formula for air (from ref. 6) is included in the programs; however, any perfect 
gas can be used by inserting an alternate viscosity law. Peak pressure and heat trans- 
fer are nondimensionalized with respect to reference values (at the stagnation point on a 
hemisphere or values ahead of the impingement point on a wedge). Each program 
requires certain input based on shock and model geometries. 

These programs are written in FORTRAN IV language for the Control Data Corpo- 
ration 6000 series computer under the SCOPE 3.0 operating system. The standard 
FORTRAN NAMELIST is used with $DATAIN as the NAMELIST name. Each program 
is presented in a separate part of the report (parts I to VI), and the subprograms com- 
mon to more than one program are presented in part VII. A discussion concerning the 
application of the programs for a typical configuration is given in part VIII. 

SYMBOLS 


constant in equation (2) 
speed of sound 

specific heat at constant pressure 
specific heat at constant volume 

stagnation velocity gradient on a sphere (eq. (6)) 

shock displacement length (see figs. 5 and 6) 
shear -layer length (see eqs. (3) and (4) and fig. 5) 
M Mach number 

N exponent in equations (1) and (2) 

Np r Prandtl number 
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ds 
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J SH 
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R b 


R bj 

R c 

s 

T 
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w 

Xi 

X 
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Oil 


ft 

Pi 

y 

6 js 

6 sl 
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pressure 

heat -transfer rate 

radius of sphere 

radius of "jet body" (see fig. 8) 

radius of curvature of jet bow shock (see fig. 8) 

surface coordinate (see fig. 8) 

temperature 

velocity 

jet width at jet bow shock (see figs. 7 and 8) 
impingement locations on wedge (see fig. 3) 
jet coordinate in horizontal plane (see fig. 7) 
jet coordinate in vertical plane (see fig. 7) 

jet impingement angle relative to local body slope (figs. 6 and 8) 

shock angle 

bow shock angle 

impinging shock angle 

ratio of specific heats 

standoff distance of jet bow shock at stagnation streamline (see fig. 8) 
shear -layer thickness at wall (eqs. (2) to (4)) 
flow deflection angle 
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8 k local body slope 

8 ± shock generator angle 

$5 shear -layer angle relative to local body slope (see fig. 5 and eq. (2)) 

jit viscosity 

p density 

Subscripts: 

1 to 8 regions 

aw adiabatic wall 

3 jet 

pk peak 

ref reference 

stag stagnation-point value on sphere 

:■ ’ : . 1 

u undisturbed value 

w wall | 

wedge wedge value (undisturbed) 

00 free stream 

SPECIAL NOTATION 

BS :1 bow shock (fig. 1) 1 

IP impingement point (fig. 1) 

IS .impinging shock (fig. 1) 
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SL 


shear layer (fig. 1) 


TS transmitted shock (fig. 1) 

wrt with respect to 

(T), (If), (3), . . .,(8) regions in shock pattern (figs. 3 to 5, 7, 9, and 10) 

TYPES OF INTERFERENCE 


The six types of interference flow patterns from reference 1 are shown in figure 1. 
The peak heating at the impingement point IP for types I, n, and V is the result of a 
shock— boundary-layer interaction. Type III interference is characterized by an attach- 
ing shear layer. The impinging supersonic jet of type IV interference causes the most 
intense heating. An expansion-fan — boundary -layer interaction occurs in type VI and 
results in a reduction in pressure and heat transfer. Figure 2 shows how the types of 
interference patterns change on a hemisphere as the impinging shock moves around the 
body. 

PART I - TYPE I INTERFERENCE 
PROBLEM DISCUSSION 

A type I interference pattern occurs when two weak shocks of opposite families (BS 
and IS) intersect, as illustrated in figure 1(a). The actual heating rise is the result of 
the transmitted impinging shock TS interacting with the boundary layer. This type of 
interference pattern will occur when the flow upstream of the impingement point is super- 
sonic, or in the case of a blunt body, it will take place well below the sonic point. (See 
fig. 2.) 

Since the flow field associated with type I interference is supersonic throughout, 
it is described in some detail. The following discussion concerns both the calculation 
of the inviscid flow field and the prediction of the associated peak pressure and heat 
transfer. 

The flow model used in the present analysis consisted of weak bow and impinging 
shocks generated by two wedges. A shear layer bounded by the transmitted bow and 
impinging shocks occurs at the shock intersection A, as shown in figure 3. Across the 
shear layer it is necessary that the static pressures be equal (p^ = Pg) and the flow 
velocities be parallel. An iterative procedure is utilized to obtain the strength of the 
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transmitted shocks and the orientation of the shear layer relative to the free -stream 
direction which satisfy these conditions. 

The flow conditions in regions 2 and 3 are calculated from the Rankine -Hugoniot 
equations of reference 6 once the flow conditions in region 1 and the strengths of the bow 
shock and impinging shocks are specified. These flow conditions (region 1) consist of 
Mach number, stagnation or static pressure and temperature, ratio of specific heats, and 
various other constants associated with the free -stream gas. To start the iterative pro- 
cedure, a value of the flow deflection is assumed and conditions in regions 4 and 5 are 
computed, again by using the Rankine -Hugoniot equations. If the pressures are equal, 
within a specified tolerance, the calculation is terminated; if not equal, the shear -layer 
deflection angle is increased incrementally toward the region with the lower pressure, 
and the procedure is repeated. From the strength of the transmitted impinging shock 
and the orientation of the body surface at the impingement point, it is possible to calcu- 
late conditions in region 6 by use of the Rankine -Hugoniot equations. Two cases must be 
considered: regular reflection and Mach reflection (ref. 7). The former occurs for local 
Mach numbers sufficiently high and shock angles sufficiently low to insure an attached 
shock system at the wall. The latter case occurs if this condition is not satisfied, and 
the pressure rise at the wall is approximated by using normal -shock relations. 

The increase in heating resulting from the shock— boundary -layer interaction at 
IP is determined from the empirical correlations of Markarian (ref. 4), which are based 
upon the inviscid pressure rise across the interaction region. These correlations are 
of the form 



where N is a constant which is dependent upon whether the interaction is laminar or 
turbulent and the ratio Pp^/P u is Pg/^- ^ or l am i nar anc * turbulent, interactions, N 
is 1.29 and 0.85, respectively. Calculation of the peak heating requires a knowledge of 
the undisturbed, or reference, heat transfer Q u ahead of the interaction. The location 
of the impingement point and the state of the boundary layer (laminar or turbulent) 
on the wedge (present flow model) must be specified in order to determine Q u . Values 
of Q u are obtained by using the reference temperature method of Eckert (ref. 8) for 
laminar and turbulent boundary layers. 

PROGRAM DESCRIPTION 

The main program reads the input, calls the various subprograms, controls the 
iterative solution to determine the deflection angle of the shear layer at point A (fig. 3), 
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and computes the heat transfer. Subprogram FTHETA is called to compute the flow 
deflection angles, and FINDB is called to compute the shock angles in each region. The 
subprograms OBLXQ, MLTRT , ABSVAL, PRATIO, and ISTROP compute flow variables 
and ratios of the flow variables. PINPUT prints input variables. The flow charts and 
listings of these subprograms are presented in part VII. The flow diagram and listing 
for the main program follow. 

Program Flow Chart - Main 
























9 







Increment 

h 




Calculate and write 
flow conditions in 
free stream 
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and write values 


/C ALL ISTRQ PX 

Compute 
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Program Listing — Main 


pp COP AM SHOCK { INPUT, 0J T PUT ,T A PE5 = I NPU T , T 4 P F6 = 0U T D UT J 


C 

F 

C 

c 

c 

r 


THIS PPQno&M PERFORMS A T YPE 

FOP T ViO dimfnsicnal flow 


I SHOCK INTERFERENCE ° 4TTERN 


DIMFNSICN Ttftafu), RHC2STRI2), V2S T 4R(2), REY2STR(2) * HM2), QFP 
1(2) , HP K ( 2 ) » QPK(2) , STN2(2) 

DIMENSION 'TN1I2I 
DI NENSICN PN(2) 

DIMENSION A 4 ( 2 ) , R N(2) 

D T MENS I CN R c (2)> T R<2>, HFP(2) 


COMMON PZ, P HO Z , T Z, PIOPZ, PHOIOZ, T 10TZ, 


INITIALIZE CCNS'AN T S 
BET A=4HBE T A 
10=1 

PN ( 1 ) = 1 . 2 9 

PN ( 2 ) =0 . 8 5 
A A ( 1)=0.332 
A A ( 2 ) = • 1 8 5 
RN( l)=-.5 
RN<2)=-2.584 


C 

C 

C- 

c 

c 

101 

102 

103 


e e e e e i 


e e ® » » « e < 


a o O o © 6 © e © a ■ 


INPUT CA T A 

© e coooeee®®eee©e®©e •«© « • • < 

PE AC (5,0 AT A IN) 

IF (ENCFILF 5) 102,103 

STOP 

CONTINUE 


esoeeesp©®®®' 


see©©' 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


1 

2 

3 

4 

5 

6 
7 

a 

o 

10 
1 1 
12 

13 

14 


1 

P Z3 » 

9 HOZ? , 

TZ 2 , 

P20PZ2, 

RH02Z2, 

T 20T Z 2 , 

A 

15 

2 

P Z 3 , 

RHQZ3, 

TZ3, 

P 30P Z3 , 

RH03Z3, 

T 30TZ 3 , 

A 

16 

3 

PZ4, 

PHn74, 

TZ A, 

P40PZ4, 

RH04Z4, 

T40TZ4, 

A 

17 

4 

PZ5, 

PH0Z5, 

TZ 5 , 

P50PZ5, 

RH05 Z5 , 

T50TZ5, 

A 

18 

5 

P Z6 , 

R HOZ 6 , 

TZ6 , 

P60PZ6, 

RH06Z6, 

T60TZ6, 

A 

19 


6 

P20P1, e HO 2(11, T20T1, 

A 2 0 A 1 , 

U2CU1 , 

4 

20 

7 

P30P2, R HO 30 2, T30T2, 

A 3 0 4 2 , 

U30U2 , 

A 

21 

a 

P 30 P 1 , PH0301, T30T1, 

A30A1 , 

U 3 0 U 1 , 

A 

22 

9 

P40P 2 , R H0402 , T40T2 , 

A40A2, 

U40U2 , 

A 

23 

$ 

P 40 P 1 , R HO 40 1 , T40 T 1 , 

44041 , 

U4CU1 , 

A 

24 

T 

P5QP3, R HO 503 , T50T3, 

A50A3 , 

U50U2, 

A 

25 

$ 

P6CP2, D HO 602 , T60 T 2, 

A60A2, 

U60U2 , 

A 

26 

t 

P6CJP4, n HQ 604, T60T4 , 

A60A4, 

U60U4 , 

A 

2 T 

t 

P50P1, R HO 501 , T5QT1, 

A5CA1, 

U50U1 , 

A 

28 

f 

P60?l, RH0601, T60T1, 

A60A1 , 

U6GU1 

A 

29 

COMMON 

PI, P HO 1 , Tl, Al, Ul, 

VI SCI, 

REY1, 

A 

30 

1 

P 2 , RHO 2 , T2, 42, U2 , 

VI SC 2, 

REY2, 

A 

31 

2 

P3 , RHO 3, T ? , 63, U3 , 

VISC3, 

R FY3 , 

A 

32 

3 

P 4 , RH04, T4, 44, U4 , 

VISC4, 

RFY4, 

A 

33 

4 

P 5 , RH05, T 5 , 45, U5, 

VTSC5, 

R E Y5 , 

A 

34 

c 

P 6 , PH06, T 6 , 46, U 6 , 

VISC. 6 , 

R EY 6 

A 

35 

NAMELIS 

T ZC4T A IN/ PM1,GAMM4,THETA3,THFTAI,TINCP,NTIMES,IPT,T,P,AMW 

A 

36 

l.TPFF , V° EF, XL, S, TW ALL, CP.PR, PUN, ANGLE, ANGLE2.T0L 

A 

37 

TOL IS 

THE CCNV FP.GENCE CRITERION FOR 

CONDITION 1 AND 2 

A 

38 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 
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c 

c 

r 

104 

c 

105 

106 
C 

c 

c 

r 

C 

c 

lO” 

c 

108 

109 
C 

110 
111 


WRITE (6 ,04 TAIN! 

P,R I 1 >=SCP T ( PP ) 

R.R ( 2) =PR**( 1 ./3. ) 

THRCEG=THETAB 

T HICFG=TME T AT 

WRITE (6,1441 B UN 

GAS CCN S T AN T ( FT- L B F/ L B M-R ) 

P =1 544 .3/ A MW 
DENSITY ( SI-UG/CU-FT ) 

RHO = °^iA4-./(?2 
T F HOT) 104,104,105 
S T A GNAT I 'IN CONDITIONS 
TZ = T 

P HO Z = F HC 
PZ = P 

GO TO 106 

FPFF STREAM CONDITIONS 

T1=T 

P1 = P 

PHC1=PHC 

CONTINUE 

CALL (STROP (GAMMA, R Ml, PI, PZ, P10PZ, IPT ) 

“PINT OLT INPUT VARIABLES 

CALL F INPUT (P Ml, GAMMA, IPT, T, P,AMW,TREF, VP EF , XL , S , T WALL , CP , PR) 
WRITE (6,145) XL 
I T Y P 2 =0 

ITyo? = 0 NORMAL 
CONVEFT ANGLES TO RADIANS 
TINCP=TINCP/57.296 
t h E T A p = t h b o e C- / 5 7 . 2 ? 6 
t HETAI=TEETAI/ 57 .296 
r N P P Q = 0 
I N PRI =0 

SAVE TP E T A AND TTNCP tc f E STORE AFTER CONDlTlUN 2 
SI NCR = T I NCR 
' T FF T A = T HE T A I 

INITIALIZE THFOLD AND T H I OLD fqr INITIAL ESTIMATE FOR THETAF 
THFCLOTHFTAI +TFFTA8 
T H 1 0 L 0 = T H F T A ! 

THIFST SAVES ORIGINAL THETAI IN CASE MULTIPLE THET ABF S APE READ 
T HTFST=T HIDEG 
DO 142 I=1,NTIMES 
WP I TE (6,148) 

IF (ANGLF.NE.3ETA) GO TO 108 
BF T A I WAS INPUT INSTEAD OF THETAI 
BFTAI=THETA I 
I NPBI=1 

T HF T A I =F T HE T A ( G AMM A , RM 1 , BET A I ) 

GO TO !C9 

BFTAI = FINOB( GAMMA, PM1, THETA I, I ERF OR) 

IF ( I E F o 0 R - 2 ) I 09, 109, 111 
IF (ANGLE2.NE.BETA) 30 TO 110 
BET AB WAS INPUT INSTEAD OF THETAP 
BE T AP. = T(- FTAB 
I N p p 8= 1 

THFTAb = -F T HET A( GA MMA , P, w 1, ABS ( 3ETAB) ) 

GO TO 112 

BE T AB=-F INDR( GAMMA , RM1 , -THETAB, I ERROR ) 

IF ( IERPOP-2 ) 1 12, 112, 111 
GO to 1 42 


A 57 
A 58 
A 59 
A 60 
A 61 
A 62 
A 63 
A 64 
A 65 
A 6 6 
A 67 
A 6 B 
A 69 
A To 
A 71 
A 72 
A 73 
A 74 
A 75 
A 76 
A 77 
A 78 
A 79 
A 8 0 
A 81 
A 82 
A 83 
A 84 

A 85 
A 86 
A 37 
A 88 
A 89 
A 90 
A 91 
A 92 
A 93 
A 94 
A 95 
A 96 
A 97 
A 98 
A 99 
A 100 
A 101 
A 102 
A 103 
A 104 
A 105 
A 106 
A 107 
A 108 
A 109 
A 110 
A 111 
A 112 
A 113 
A 114 
A 115 
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112 THB0FG=THET*e*57.296 4 116 

TH IDEG = TPfT4 1*57.296 A 117 

WRITE (6.146) T H 1 0 E G » T H 3 0 E G A 118 

W p I T E (6,147) A 1 19 

G aiotACaetiAOO,,**,..*****.*.***.... 4 .**. 1 *********...**.*, 0 *.***** A 120 

0 FPPORS I N FINDING BETA A 121 

r Tf=op,OR = 1 ONE SCLUTION WAS FOUND, CONTINUE A 122 

r 2 SOLUTION DID NOT CONVERGE, USE LAST B COMPUTE A 123 

C 3 Nf. SOLUTION WAS FOUND, START NEW CASE A 124 

C 4 NCT DEFINED A 125 

C #« a. a. ...... A 126 

SINPI=S!N(BE T AI ) A 127 

S 1 N P. B = S INI BE T A B ) A 128 

B 8 O F. F = B E T A B * 5 7 . 2 7 6 A 129 

RI 0EF=8ETAI*57.296 A 130 

r FIND PATIOS FOF. REGION 2 WITH RESPECT tq REGION 1 A 131 

CALL C°LI 9 (GAMMA, PM1,THETAB, BETAS, PM2.P20P1, 1,2, IQ) A 132 

C FINE RATIOS FOP REGION 3 WITH RE SPEC T TO REGION 1 A 133 

CALL CBLIQ ( G AMMA , P Ml , T FET A ! , SET A I , R M3 , P 3DP1 , 1 , 3, 10 ) A 134 

I S <i =0 A 13 5 

G ...... ........ ....... ...... ...... ...... ......... ........... 000.000 A 136 

g A 13 7 

C CONDITION I A 138 

C TTFPATE DN ■’’FETAF UNTIL P4 = P5 A 139 

C A 140 

C 00,00.00.0.0.00000000. 000000 . .000. .000.000.0.0.000.0*. A 141 

I t= 1 A 142 

0TPF T A=.01 A 143 

THET AF = THFOL C + T PET A I-Tp IOLD A 144 

113 THFTA4=-THE 7 AS + THGt i4F A 145 

BFTA4=FIND8( GAMMA, PM2 , THFTA4, IERROP) A 146 

IF (IEPRQP-3) 114,127,111 A 147 

114 P4CP2=PR A T IC( GAMMA ,PM2 , SIN(8ET44) ) A 148 

P40P1=P4UP2*P2CP1 A 149 

THFTA5 = -(THF T A I-THFT AF ) A 150 

RETA5=-FINDR(GAMMA,RM’ ,ABS(THETA5) ,IERROR) A 151 

IF (1F.PPQR-3) 115,127,111 A 152 

115 p50P3=PRA t I D( GAMMA ,PM3 , SIN(BETA5) ) A 153 

P50 D l = P5QP3*P3f]Pl A 154 

I T = I T + ! A 155 

IF (AeS(P50Pl-P40Pl)-.CCl) 128,123,116 A 156 

116 IF (IT-50) 118,118,117 A 157 

117 WPITF (6,149) P50P1,P4CP1 A 158 

GO TO 143 A 159 

G INCREASE THETA F IN THE DIRECTION OF the SMALLER PRESSURE A 160 

118 IF ( P5CPL-P4CPL) 119,128,123 A 161 

C have SIGNS SWITCHED A 162 

119 IF HSW) 122,120,121 '* 163 

120 ISW = -1 A 1 u 4 

GO tq 122 a 165 

121 THETAF=THETAF-DTFETA A It 

OTHETA=CTHFTA /10.0 A j 6 

GO TO 113 A 168 

122 THE TAF = T'-iGTAF— DTHETA A 169 

GO TO 113 A (TO 

123 IF (ISW) ! 25, 124, ’26 I 171 

124 ISW=1 A 112 

GO TC 126 A 1 ?3 

125 THE TAF=IHETAFtD T HFT 4 A ?,74 

CTFETA=CTHFTA/1D.0 A 5.7 5 

GO T 0 113 A 176 
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126 

t HF1AF = THETAF +DTFETA 



A 

177 


GO TO 113 



A 

17B 

127 

T FCEG= T FET4F*S7.296 



A 

179 


WR ITE (6,150) 



A 

180 


I T Y P2 =4 



A 

181 


T I MC. P = T I NCR / 2 . 



A 

18 2 


THETA!=THFTAI-t incp 



A 

183 


IF (TTNCR-TOU 143, 107,107 



A 

184 

c 




l\ 

1 ft 5 

C 




A 

186 

c 

ITERATION ON °4 A N0 P5 IS 0 CM P|_ £T FD . USE COMPUTED T HE IAF 

TO 

CALCUL 

A 

187 

r 

CONDITIONS 4-6. 



A 

188 

c 




A 

189 

c 




\ 

1 90 

128 

SI NP4 = S IN( BET A 4 ) 



A 

191 


S I N B5 = S IN { B ET4 5 ) 



A 

192 

C 

FIND RATIOS FOP REGION 4 WITH RESPECT TO RFGION 2 



A 

193 


CALL CRLIQ (CAMMA,pM2,THFTA4,SETA4,RM4,P40P2,2,4,I0) 



A 

194 

c 

FINO RATIOS FOR REGION 5 WITH RESPECT TC REGION 3 



A 

195 


CALL CBLIO (GAMMA, PM3 , ABS( THETA5) , 4BS ( BFTA5) ,RM5, P5CP3.3 

,5, 

10) 

A 

196 


TFDEG=THFTAF* 180. /3. 1416 



A 

197 


THFOLC=THFTAF 



A 

198 


TH10LD=THPt ai 



A 

1 Q Q 

c 

FINC RATIOS FOP REGION 4 WITH RESPECT TO REGION 1 



A 

200 


CALL MLTRT ( P40P2, R20P 1.P4001 , 1,4, 10) 



A 

201 

c 

FIND RATIOS FOR REGION 5 WITH RESPECT TQ REGION 1 



A 

202 


CALL MLTRT (P50P3,P30 D 1,P50F1 ,1,5,10) 



A 

20 3 


THFTA6=THETAP-TEETAF 



A 

204 


I E R F OR = 1 



A 

205 


BFT A6=-FIN0B(GAMMA,RM4 , ABS ( TH ET A6 ) , I F 0 ROR ) 



A 

206 


IF (TERROR— 3) 133,12^,133 



A 

207 

c 




A 

208 

r 

CONDITION 2 



A 

209 

r 

SHOCK REFLECTION NOT PCSSIRLE. ITERATE ON THETRI TO FIND 

LAST 

A 

210 

r 

POSSIBLE SHOCK REFLECTION. 



A 

211 

r 




A 

212 

129 

RM?S0=PM2*RM2 



A 

213 


BFTA6 = 1 .57C8 



A 

214 


WRITE (6,151) 



A 

215 

r 

IF I TYP2. G T • 3 Then ITERATION CN CONDITION 2 IS COMPLETED 

« 


A 

216 


IF ( ITY p ?- 3 ) 130, 132, 132 



A 

217 

130 

r T y p 2 =1 



A 

218 


THET AI=THE t M-T INCR 



A 

219 


TF (TINC^-TCL) 131,132,132 



A 

220 

c 

ITERATION HAS CONVERGED. RETURN TO INCREMENTING THETA NO 

RMALLY 

A 

22 1 

131 

TTNCP=SINCR 



A 

22 2 


THETA I = STHETA+T INCR 



A 

223 


I T Y P 2= 3 



A 

224 

c 

BECAUSE OBLICUG 'HOCK REFLECTION NOT POSSIBLE BETWEEN 4 

AND 

6 USE 

A 

225 

C 

NORMAL SHOCK RELATIONS 8FTWEEN 6 AND 2 



A 

226 

132 

P60P2=1.*2.*GAMMA/(GAMMA*1. ) * ( RM2 S 0- 1 . ) 



A 

227 


RH0602* (G AMM.A + l . )*RM2SC, /( ( GAMMA-1 . )*PM2SC + 2 . ) 



A 

228 


T60T2= ( 2.* GAMM A*RM2S 3- (GAMMA-L .))*(( GAMMA- 1. )*RM2SQ +2. ) 



A 

229 


T6Q T 2=T 60 T 7 / ( ( GAMMA +1 . )**2*RM2SQ> 



A 

230 


A6C A 2 = AR AT I C ( T 60 T 2 ) 



A 

231 


RMfc=SCRT( ( (GAMMA-1 . )*RR2SQ + 2. ) / ( 2 . *G AMMA*R M2 S Q- < G AMMA-1 . 

)) ) 


A 

232 


U6CU2=A60A2*PM6/RM2 



A 

233 


WPTTF (6,152) P60 D 2,PHCfc02,T60T2,A60A?,U60U2 



A 

234 

c 

FIND PATIOS FOR REGION 6 WITH RESPECT TO REGION 1 



A 

235 


CALL MLTRT ( P6CP?, P20P1 ,P60P! ,1,6,10) 



A 

236 


GO TC 134 



A 

237 
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c 

133 
C 

c 

c 

c 

c 

c 

1 34 
C 


f 


o 


135 

1 36 

C 

C 

C 

r 

r 


c 


SHOCK REFLECTION POSSIBLE. USE OBLIQUE SHOCK RELATION BETWEEN 6 AN A 238 

CALL CRLIQ (GAMMA, RM4, AB$(THE T A6 ) , ABS (BETA6 ) ,RM6, P60P4, 6,6, 101 A 239 

P6GP2=P60P4*P40P2 A 240 

F I NO F ATI OS FOR REGION 6 WITH RES °EC T TO REGION 1 A 241 

CALL ML T RT ( P60P4, P40P 1 , P60P1 , 1 , 6 , 10 ) A 242 

. . A 243 

A 244 

WRITE THRTA AND BETA FCR EACH REGION A 245 

A 246 
A 247 

WRITE (6,153) A 248 

WRITF THETA AND BETA FOR REGION 2 A 249 

THFDEC=THE T AF*57.296 A 250 

THDEG=THBDEG A 251 

RETDEG=8ETAB*57.29fc A 252 

AB STH=TpRDEG A 253 

ABSBT = BETDEG A 254 

j=2 A 255 

WRITE (6,154) ), T HDEG.BETDEG, ABSTH, ABSBT, RM1,RM2 A 256 

W I T E THE’’ A AND 3 F T A FCR REGION 3 A 257 

AR< T H=T(-I DEG A 258 

A R S R t = n TOES A 259 

j=T A ? 6 0 

WRITE (6,154) J, T HIDES, BID EG, ABSTH, ABSBT , 0 M 1 , R M 3 A 261 

WRITE te c TA ANC BETA FCR RFGION 4 A 262 

TH0LG=T|-f t A4*5" 7 .2-6 A 263 

npTO r G=PFT A4*57 .296 A 264 

An STH= T FROEG A 265 

AB caT =nF T DFG+ T FBDEG A 266 

J= 4 A 267 

WRITE (6,154) JtTMOEG, BETOEG, ABSTH, A8SBT,RM2,RM4 A 268 

I TF thETA AND BETA FCR RFGICN 5 A 269 

THDFG = TF c TA5 , ' t 57.296 A 270 

BETDFG=BE T A5*5 7 ,2°fc A 271 

ABRT W = T HFDEG A 272 

A B S BT = B ET D EG+T H IDE G A 273 

J=5 A 274 

WRITF (6,154) J,THDFG,BE T DEG, ABSTH, ABSBT ,RM3,RM5 A 275 

WRITF THETA AND BETA FCR REGION 6 A 276 

THrEG=TFETA6*57 . 3 Q 6 A 277 

RE T 0EG=BFTA6*57.296 A 278 

ARSTF'=' r FRnEG A 279 

IF (8E T A6.FQ. 1.5708) GC TO 135 A 280 

ABSRT=.BF T DEG+TFFDEG A 281 

RM=FM4 A 282 

GO TO 136 A 283 

ARSBT=BFTUEG+THBDEG A 284 

RM=PM? A285 

J = 6 A 286 

WRITE (6,154) J,THDEG,BE T DEG, ABSTH, ABSBT, RM,RM6 A 287 

. ......... .......o. ......... •• A 288 

A 289 

CALCULATE AN G WRIT E PARAMETER VALUES FOR EACH REGION A 290 

A 291 

i, ...... ........ ..................................... ........... A 292 

VISC1=VISCJ(VREF,TREF,T1,S ) A 293 

A 1 = SQP T ( 32 . 2*GA MMA *P*T 1 | A 294 

U1 = A 1 Ml A 295 

REV1 = PH01*U1/VISC1- A. 296 

WRITE (6, 155 ) A 297 

WP ITE ( 6, 156 ) A 298 

WRITE ABSOLUTE VALUES FOR REGION 1 A 299 
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o o o rV O' o o o 


c 


c 


c 


r 


C 


C 

C 

C 


C 

C 


J = .l A 30 0 

W° I TE (t,15"’) J,P1,PHQ1,T1 ,41 ,U1 , V I SC 1 , R EY 1 , R Ml A 301 

W D I T f ABSOLUTE VALUES FOR REGION 3 A 302 

J=2 A 303 

CALL ARSVAL (P20P1,P1,P2,VREF,TREF,S, J,IO,RM?J A 304 

WRITE ABSOLUTE VALUES FOR REGION 3 A 305 

J=3 A 306 

C ALL ABSVAL ( P30P 1 * PI * P3 , VR EF , TREE , S , J , I C, 3 M3 > A 307 

WRITE ABSOLUTE VALUES FOR REGION 4 A 308 

J = 4 A 309 

CALL ABSVAL l P40P1 , PI , P4 , VR EF , TR EE , S , i , 1 0 , R M4 ) A 310 

W°ITE A 3 SOL U T E VALUES FOR REGION 5 A 31 I 

J=5 A 312 

CALL ABSVAL ( °50°1 ,P1 , P5, VREF ,TRFF ,S , J » IC.RM5) A 313 

WRITE A8S0LUTF VALUES FOR REGION 6 A 314 

J =6 A 315 

CALL APSVAL (P60P1,P1,P6,VREF,TREF,S. J,I0,RM6) A 316 

A 317 

A 318 

CALCULATE AND WRITE STAGNATION VALUES FOR EACH REGION A 319 

A 320 

A 321 

WRITE (6,159) A 322 

.1=1 A 323 

WRITE (6,157) J , P Z » RH0 2 »TZ A 324 

J=? A 325 

CA1L (STROP ( G AMM A , RM2 * 0 2 , PZ2,°20°Z2, 2 ) A 326 

P720Z=PZ?/PZ A 327 

WRITE (6,158) J,PZ2,RHCZ2,TZ2,PZ20Z A 328 

J= 2 A 329 

CALL rS T R0P (GAMMA, R M3 , P3, PZ3,P30PZ3, 3) A 330 

PZ?OZ=PZ 3 /PZ A 331 

WRITE (6,158) J, PZ3, RHCZ3,TZ3 ,DZ30Z A 332 

J = 4 4 33 3 

CALL TRTEOP (GAMMA, C M4 » P4 , P Z4 , P40P Z4 , 4 ) A 334 

P Z 40 Z = ° Z4/ P Z A 335 

WRITE (6,158) J,PZ4,RHCZ4,TZ4,PZ40Z A 336 

J=5 A 337 

CALL ISTROP (GAMMA,PM5,P5,PZ5,P50PZ5,5) A 338 

°Z50Z= P Z5/PZ A 339 

WRITE (6,158) J,PZ5,RHCZ5,TZ5,PZ50Z A 340 

J =6 A 341 

CALL I STS OP (GAMMA.,RM 6 , P 6 , PZ 6 , P60°Z6,6 ) A 342 

PZ60 Z= P 26/ P Z 4 343 

WRITE (6,158) J ,PZ 6 ,PHCZfc ,TZ 6 ,PZ 6 0Z A 344 

ee eB©eo©aoooeo® 0 oo» 0 «oBi»do£> 0 t,e 8 eoooofle©e«©eo©ee©oe©oe©oi>eee»»©ftooo A 34 5 

A 346 

CALCULATE AND WRITE STANTON NUMBER, FLAT PLATE HEAT TRANSFER A 347 

COEFFICIENT! HFP), AND BEATING RATE(OFP) IN REGION 2 A 348 

A 349 

• • ’ * . A 350 

J = 1 IS LAMINA 0 AND J=2 IS TURBULENT 4 351 

DO 137 J= 1 , 2 a 35? 

RECOVERY TEMPERATURE 4 353 

TR ( J)=T2+RP { J)*(TZ-T2) A 354 

ECKERT*S REFERENCE TEMPERATURE A 355 

T2STAP ( J ) = .5*( TWALL+T2 ) *.22*( TR ( J )-T2 ) A 356 

RH02STR ( j) =144.*P2/< 32 .2*R*T2 S T 4R ( J) ) A 357 

V2 STAR ( J ) =VI SCJ (V° EF, TREE ,T2STAR,S ) 4 353 

REY2ST0 ( j ) =RH02STP ( j)*U2#XL/V2ST AR ( J) A 350 
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C LOCAL INCOMPRESSIBLE STANTON NUMBER IN REGION 2 AT IMPINGEMENT A 360 

C.F 2= AA ( J ) *PEY2STP**RN( J ) A 361 

IF (J.EQ.2) CF2=AA { J )*ALOG10( REY2ST3 )**RN( J I A 362 

S T N2( J)=CF2*PR**(-2./3. ) A 363 

C COMPRESSIBLE FLAT PLATE HEAT TRANSFER COEF ( BTU/SEC-FT 2-R ) A 364 

HFP( J ) = S' r N2< J )*RH02STR*U2*CP/'’78. A 365 

C FREE STREAM STANTON NUMBER A 366 

STNK J)=T78.*HFP( J )./(RHCl*Ul*CP ) A 367 

C FLAT PLATE HEATING RATE(BTU/SEC~FT2) A 368 

QFP(J)=FFP( J)*(TR( Jl-TWALL) A 369 

c MAPKAPTAN HEAT TRANSFER RATIOS A 370 

HR ( J ) = P60P2**PN( J ) A 371 

C PEAK HEATING RATE A 372 

QPK( J)=FR( J)*QFP( J) A 373 

C PEAK HFA t TRANSFER COEF A 374 

137 HPK(J)*HFP(J)*HPf J) A 375 

WRITE (6,160) A 376 

WRITE (6,161) CFP( 1 ),HFP(1) ,STN2( 1 ) , STN 1C 1) ,P60P2,HR< 1) ,QPK( 1) ,HPK A 377 

1(1) A 378 

WRITE (6,162) CFP(2),HFP(2),STN2(2),STN1(2),P60P2,HR(2),QPK(2),HPK A 379 

1(2) A 380 

WRITE (6,163) A 381 

C *•«•••*•••••»•*•«•• A 382 

C A 383 

C I TYP2 = 0 INCREMENT THETAI NORMALLY A 384 

C 1 AM ITERATING CN CONDITION 2, A 385 

C 3 THETAI IS BETWEEN CONDITION 1 AND 2. INCREMENT THETAI A 386 

C 4 AM ITERATING CN CONDITION 1 A 387 

C A 3 8 8 

C »»»*»#«»#*«»#«»*#»••»#•••«•••••*•••»•••••»•*•*•••••••••••••••»•••• A 389 

138 I TYP=ITYP2+1 A 390 

GO TO (141,140,141,141,140,143), I TYP A 391 

C LAST HERAT I CN ON CONDITION 2. RETURN TO INCREMENTING A 392 

C NORMALLY A 393 

139 TI NC R = S INC R A 394 

THETAI=STHETA+TINCR A 395 

I T YP2=I TYP2+2 A 396 

IF ( I TY °2~ 3 ) 143,138, 143 A 39 7 

140 TINCR=TINCR/2. A 398 

THF.TAI=THETA I+TINCF A 399 

IF (TINCR-TCL) 139,107,107 A 400 

141 STHETA =THETA I A 401 

142 THETAI=THETAI+TINCP A 402 

143 CONTINUE A 403 

C RETURN THETAI AND TINCP TO ORIGINAL VALUES A 404 

THETAI=THJFST A 405 

TINC.R=STNCR A 406 

GO TO 101 A 407 

C A 40 8 

144 FORMAT ( I HI , 9X, 49HTHI S PROGRAM PERFORMS A TYPE I SHOCK INTERFERENC A 409 

1H,«H pattern, //,13H RUN NUMBER , F 5 « 2 / ) A 410 

145 FORMAT (16H XL ( WALL LENGTH ) , 1 5X , F 1 5 . 6 , 4H FT) A 411 

1 46 FORMAT ( 1 H 1 , 20H I NP UT VARIABLES ARE /?H THETAI =,F9.4, 19H DEG, AND A 412 

1THETAB = ,F9.4,4H DEG//) A 413 

147 FORMAT I//12F RATIOS ARE /) A 414 

148 FORMAT (1 H / ) A 415 

149 FORMAT (IX,21H50 ITERATIONS, P5 OP 1 = , F 10 . 4 , 5X , 7 HP40P 1= ,F10.4) A 416 

150 FORMAT { / / 1 X , 3 7H T H IS IS A Typg > I NTF® FERENC. F PATTERN) A 417 

151 FORMAT ( / 1 X , 8 2F SHOT K REFLECTICN NO t POSSIBLE AT THIS POINT - NORMA A 418 

1L SHOCK BETWEEN 6 AND 2 ASSUMED/) A 419 

152 FORMAT ( IX , 6FP6/P2=,FR .4, 5X,THRH06/2= ,FR.4,5X,6HT6/T2=,F8.4,5X,6HA A 420 

16/A2=,F8.4,5X,6HU6/U2= ,F8. 4) 6 A21 
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L 53 


154 

155 

156 


157 

158 

159 


160 

161 

162 

16? 


C 

C 


FORMAT ( //7H RF G ION , 5X , 14HR EL AT I VE ANGLE*10X,14H4i3S(JLUTE ANGLE/ 9 X, 
15 HTFFT a, BX, 4HRETA, 7X ,5FTHETA , 8X ,4HBETfl , 29H UPSTREAM MACH LOCAL 
2 MACH) 

FORMAT (1X,I1,4F12.4,2F15.4> 

FORMAT ( / / 7H p EGIONt 10X, IMP ,1 2X,?HRH0 , 11 X, 1HT , UX ,1HA , 11X»1HU* 13Xt 
12H M U * 3 X illHREYNOLOS N0,9H MACH NO) 

FORMAT (14X .3HPS I , 4X,1 OHSLUG/CU F T ,5X , 7HR ANK I NE , 6X , 6HFT /SEC , 6X , 6 HF 
1T/SEC.4X, 11FSLUG/FT-SEC ,11X,4U1/FT) 

FORMAT (lX,15,F12.4,E15.5,3F12.4 f ?E15.5,F8.4) 

FORMAT (1X,I5,F!2.4,E15.5,3F12.6,2E15.5) 

FORMAT 1/1X, 25HSTAGNAT1CN CONDITIONS ARE/7H REG I CN , 6X , 5HPST AG, 12 X, 
13HRH0, 7X,5HTSTAG,4X,12HPSTAG/PSTAG1,/,14X,4HPSIA,4X,11HSLUGS/CU FT 
2 * 5 X » 7HR ANK I N F ) 

FORMAT ( / / 1 4H FEAT TRANSFER*/ 17X , 1HQ , 14X , 3HHFP * 12X* 8HST ANT0N2 , 7X ,3 
1H ST ANTON I , 7X» 5HP6/P2, 10X.2HHP , 12X ,3H0PK , 12 X, 3HHPK) 

FORMAT <RH L AM I NA F , 2 X , 8 ( F 1 5 . 5 I ) 

FORMAT ( 1 OH TURBULENT, 8(E15.5 ) ) 

FORMAT <1H0,41FHFP = HEA T TRANSFER COEF(btu/SQ FT-SEC-R ) /35H Q 
1 HEAT TR4NSFEP ( Q TL/SQ FT-SECI) 

ENO 


0 • I • t « « 


A 422 
A 42 3 
A 424 
A 425 
A 426 
A 427 
A 428 
A 429 
A 430 
A 431 
A 432 
A 43 3 
A 434 
A 435 
A 436 
A 437 
A 438 
A 439 
A 440 
A 441- 
B 1 
R 2 


USAGE 


Program SHOCK for a type I interference pattern uses the standard FORTRAN 
NAMELIST input with $DATAIN as the NAMELIST name. The input includes the flow con- 
ditions, gas properties, impinging flow deflection or shock angle, body angle, and impinge- 
ment location on the body. The program can increase incrementally the shock generator 
angle and also predict when a type n interference pattern will occur. 

A description of the input and output variables and a sample case are presented. 


Input Description 

The $DATAIN input for type I is as follows: 


RUN 

run number for identification 


RM1 

Moo, free -stream Mach number 


GAMMA 

C p/ Cy ’ ratio of s P ecific heats 


THETAI 

6 ^, shock generator angle, deg; or |3j, impinging 

shock angle, deg 

THETAB 

6> b , body angle, deg (input as negative angle); or 
(input as negative angle) 

j3^, bow shock angle, deg 
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TINCR increment for Q^, deg 

NTIMES number of times to increment 8; 

IPT initial point; 0 for stagnation conditions, 1 for free -stream static 

conditions 

T temperature at IPT, °R 

P pressure at IPT, psia 

AMW molecular weight (used to compute gas constant) 

TREF reference temperature for computing viscosity, °R 

VREF reference viscosity for computing viscosity, slugs/ft-sec 

S Sutherland's constant in viscosity equation 

XL Xi, distance from leading edge to impingement point, ft 

TWALL temperature at wall, °R 

CP Cp, specific heat at constant pressure, ft-lbf/slug-°R 

PR Np r , Prandtl number 

ANGLE THET if fij input; BETA if % input 

ANGLE 2 THET if 8 b input; BETA if 0 b input 

TOL acceptable tolerance for equal pressures (0.001) 

Output Description 

The output consists of printing only. A heading and pertinent input for identifica- 
tion are printed before the calculated results. 
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RUN NUMBER 


run number for identification 


Ml M,*,, Mach number in free stream 

GAMMA(CP/CV) ratio of specific heats 

TEMP AT POINT "IPT" input as T, °R 
PRES AT POINT "IPT" input as P, psia 

MOLECULAR WEIGHT molecular weight (used to compute gas constant) 

REFERENCE TEMP reference temperature for computing viscosity, °R 

REFERENCE VISCOSITY reference viscosity for computing viscosity, slugs/ft-sec 
S(SUTHERLAND NUMBER) Sutherland's constant in viscosity equation 
TEMP AT WALL T w , °R 


CP 

PRANDTL NUMBER 
XL (WALL LENGTH) 
THETAI 
THETAB 
P2/P1, etc. 

RH02/1, etc. 

T2/T1, etc. 

A2/A1, etc, 

U2/U1, etc. 


Cp, specific heat at constant pressure, ft-lbf/slug-°R 
Np r , Prandtl number 

Xi, length from leading edge to impingement point, ft 
9 i, shock generator angle, deg 
0 b , body angle, deg 


P 2 /Pi> etc., pressure ratios for regions listed 
P 2 /P 1 , etc., density ratios for regions listed 
T 2 /T-L, etc., temperature ratios for regions listed 


^2/^V etc., ratios of speeds of sound in regions listed 
u 2 / u i > etc -; velocity ratios for regions listed 
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RELATIVE ANGLE 



THETA 

flow angle relative to flow in upstream region, deg 


BETA 

shock angle relative to flow in upstream region, deg 


ABSOLUTE ANGLE 



THETA 

flow angle relative to free -stream flow, deg 


BETA 

shock angle relative to free -stream flow, deg 


UPSTREAM MACH 

Mach number in upstream region 


LOCAL MACH 

local Mach number 


REGION 

region in shock pattern 


P 

static pressure in region, psia 


RHO 

static density in region, slugs/ft 3 


T 

static temperature in region, °R 


A 

speed of sound in region, ft/sec 


U 

velocity in region, ft/sec 


MU 

static viscosity in region, slugs/ft -sec 


REYNOLDS NO 

Reynolds number per foot in region 


MACH NO 

Mach number in region 


The following stagnation conditions are then listed: 


PSTAG 

total pressure in region, psia 


RHO 

total density in region, slugs/ft 3 
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TSTAG 


total temperature in region, °R 


PSTAG/PSTAG1 


ratio of total pressure in region to free -stream total pressure 


The pressure ratio and heat transfer for laminar and turbulent flow are listed as 
Q heat -transfer rate, Btu/ft^-sec 

HFP flat -plate heat -transfer coefficient, Btu/ft^-sec-°R 


STANTON2 


local incompressible Stanton number 


STANTON 1 


compressible free -stream Stanton number 


P6/P2 


peak pressure ratio 

HR 


Markarian heat -transfer ratio 

QPK 


peak heating rate 

HPK 


peak heat -transfer coefficient 



Sample Case - Input 

SOAT/S 



P Ml 

= 

0.6E+01, 

GAMMA 

= 

0.14F+01, 

THFTAB 

= 

-0.15E+02, 

THFT A I 

= 

0.5E+01* 

TINCP 

= 

0.5F+01 , 

NTIMES 

= 

1* 

I PT 

= 

0, 

T 

= 

0.9E + 02 * 

P 

= 

0.4E+03. 

A MW 

= 

0.2897F+0?, 

TREE 

= 

0.53F+C2, 
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VREF 


0.3 301 F-Cfc 


XL = 0.25E+00, 

S = 0.1S86E+C3, 

TWALL = 0.55E+C3, 

C° = 0. 6 006 E +04 » 

PR = 0." ? 2E + 00 r 

RUN = 0.1E+01, 

ANGLE = 0 . 65404 725765 109E +93 , 

ANGLE2 = 0.6540472576 5 105F+93* 

TOL = 0.1F-Q2, 

$END 


Sample Case - Output 


t m ! 5 PROGRAM P r cFU«MS A T YPF I SHO^K INTERFERENCE PATTERN 
PUN MJMRFR 1 .00 


IN°UT VARIABLES ARE 
Ml 

GAMMA! C°/rv) 

TEMP AT POINT 0 
PRES AT POIN T G 
MGIFCULAR WEIGHT 
REFFRENGF TFMP 
R EF F 0 ENCF VISCOSITY 
S ( SUThERt. AND NU MQ rF ) 
TEMP AT WALL 
C D 

pranotl number 

XU WALL LENGTH) 


6.000 

1.400000 

90C. 000000 RANKINE 
40 C. 000000 PSI 
2G .970000 

5 3 C . 00000 0 RANKING 
3.30 1000F-07 Sl.UG/( FT-SEC ) 

153.600 

550.000 RANKTNE 
6006. COO FT-L0F/ ( SLUG-RANK I NE) 
.720 COO 
.250000 FT 
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DO 

tfr. 


INPUT VARIABLES ARE 


THETA I 

= 5.0000 

DEG, AND 

THETAB = 

-15.0000 

DEG 





RATIOS 

ARE 









P2/P1= 

6.0734 

RH02/1= 

3.1011 

T2/T1 = 

1.95 85 

A2/A1= 

1. 3995 

U2/U1 = 

.9311 

P 3/P 1 = 

2 .0103 

RH03/1= 

1.6306 

T3/T1= 

1.2328 

A3/A1= 

1.1103 

U3 /U1 = 

.9837 

P4/P 2= 

1.6648 

RH04/ 2- 

1. 4337 

T4/T2= 

1.1612 

A4/A2= 

1.0776 

U4/U2= 

.9744 

P5/P3- 

5.0297 

PH05/3= 

2.8268 

T5/T3= 

1.7793 

A5/A3= 

1.3339 

U5/U3= 

.9285 

P4/P1= 

10.1109 

RH04/1= 

4.4459 

T4/T1= 

2.2742 

A4/A 1= 

1.5081 

U4/U1 = 

.9072 

P5/P 1= 

10.1111 

RH05/1= 

4.6093 

T5/T1= 

2.1936 

A5/A1= 

1.4811 

U5/U1 = 

.9134 

P6/PA- 

1.593 3 

RH06/4= 

1.3907 

T6/T4 = 

1.1457 

A6/A4= 

1.0704 

U6 /U4= 

.9716 

P6/P1= 

16.1097 

RH06/1= 

6. 1828 

T6/T1 - 

2.6056 

A6/A1= 

1.6142 

U6/U1 = 

.8815 


REGION 

RELATIVE ANGLE 

ABSOLUTE ANGLE 




THETA 

BETA 

THETA 

BETA 

UPSTREAM MACH 

LOCAL MACH 

2 

15.0000 

-22.6719 

-15.0000 

-22.6719 

6.0000 

3.9918 

3 

5.0000 

13.1598 

5.0000 

13.1598 

6.0000 

5.3157 

4 

5.3C83 

18.2928 

-9.6917 

3.2928 

3.9918 

3.6095 

5 

14.6917 

-23.3922 

-9.6917 

-18.3922 

5.3157 

3.7001 

6 

-5. 3083 

-19.8941 

-15.0000 

-29.5853 

3.6095 

3.2765 


REGION 

p 

RHO 

T 

A 

U 

MU 

REYNOLDS NO 

MACH NO 


PSI 

SLUG/CU FT 

R4NKINE 

FT/SEC 

FT/SEC 

SLUG /FT-SEC 

1/FT 


1 

.2533 

1.93645E- 04 

109.7561 

513.5679 

3081.4074 

8.46377E-08 

7.05004E+06 

6.0000 

2 

1.5387 

6.00506E— 04 

214.9563 

718.7182 

2868.9832 

1 . 72967F— 07 

9.96052E+06 

3.9918 

3 

.5093 

3. 15760E— 04 

135.3111 

570.2302 

3031.1919 

1 . 069 90E-07 

8.94597E+06 

5.3157 

4 

2.5615 

8.6 0919E-04 

249.6093 

774.4866 

2795.4826 

1.99702E-07 

1.20513E+07 

3.6095 

5 ..... 

2.5616 

8.92574E-04 

240.7624 

■’’60.6377 

2814.4446 

1 .92989E-07 

1 .30168E+07 

3.7001 

6 

- 4.0813 

1.19726E— 03 

285.9789 

828.9924 

2716.2005 

2.26522E-07 

1 • 4356 3E + 07 

3.2765 

STAGNATION CONDITIONS ARE 







.REGION 

PSTAG 

RHO 

TSTAG 

PSTAG/PSTAG1 





PSIA 

SLUGS/CU FT 

RANKINE 






1 

400.0000 

3.72856E-02 

9CO.OOOO 






_ 2 

231. 0837 

2.154Q2E-02 

900.001065 

.577709 





3 . 

386.5123 

3 .60280E- 02 

900.008771 

.966281 





4 . 

228.0034 

2.12530E— 02. 

900 .003197 

.570008 





5...... 

. 258.7108 ... 

2.41152E-02 

900^0.09631 

.646777 





.6 

225 * 6 172 

2.1.Q362E-02 

_ 900 .004664 

.564193 






HEAT.. TRANSFER . ........... 

Q 

HFP 

ST4NTON2 

STANTON 1 

P6/P2 

HR 

QPK 

HPK 

LAMINAR 8.13165E-CI 

3 • 30239E- 03 

5 • 89526E-04 

7. 16914E-04 

2 .65250E+00 

3.5 19 78 E+00 

2.86216E-H00 

1* 16237E— 02 

TURBULENT 4.02372E+00 

1. 44246 E-C2 

2 .57501E-03 

3. 13143E-03 

2.6525 0E*-00 

2.29143E+00 

9.22008E+00 

3.30530E-02 


HFP = HEAT TRANSFER COEFEBTU/SQ FT-SEC-R) 
0 = HEAT TRANSFERtBTt/SQ FT-SEC ) 



PART II - TYPE II INTERFERENCE 


PROBLEM DISCUSSION 

A type II interference pattern occurs when two shocks of opposite families (BS and 
IS) intersect, as shown in figure 1(b). Both shocks are weak as in type I but are of such 
strength that in order to turn the flow, a Mach reflection must exist in the center of the 
flow field with an embedded subsonic region occurring between the intersection points (A 
and B) and the accompanying shear layers. (See p. 557 of ref. 7.) Type II interference 
occurs on a blunt body when the impinging shock intersects the bow shock near the sonic 
point, as shown in figure 2 . 

As for type I interference, the flow model consisted of a weak impinging shock and 
a stronger bow shock (M 3 > M 2 ) generated by two wedges, as illustrated in figure 4. A 
detailed analysis of the complete flow field is difficult because the extent of subsonic 
region 5 is unknown and depends on the size and shape of the body (ref. 1). The condi- 
tions in the supersonic regions (4 and 6 ) and the pressure ratio P 6 /P 2 across the trans- 
mitted impinging shock at the shock — boundary -layer interaction IP can be calculated 
since the influence of the impinging shock on these regions is small compared with the 
influence of the bow shock (ref. 1 ). 

Given the free -stream conditions in region 1 and either the body angle 0^ or bow 
shock angle (3^, the triple -shock configuration with a shear layer at point A is deter- 
mined by an iterative procedure similar to that discussed for a type I interference in 
part I with the exception that strong-shock relations are used between regions 1 and 5. 

Flow data presented in references 1 and 2 indicate that the shocks and shear layer at 
point A are nearly straight; therefore, the conditions in region 4 are approximately those 
calculated by assuming no shock or shear -layer curvature and a nearly normal shock 
between A and B. When the regular shock reflection between regions 4 and 6 is no longer 
possible, it is replaced by a Mach reflection and a normal shock is assumed near the wall. 
Once the pressure rise from region 2 to region 6 is known, the heat -transfer rise is deter- 
mined with the same procedure as used for type I (eq. (1)). The reference, or undisturbed, 
heating ahead of the shock— boundary -layer interaction at IP is calculated in the same 
manner as for type I. 


PROGRAM DESCRIPTION 

The main program reads the input, calls the various subprograms, and computes 
the heat transfer. The TYP4 subprogram computes the flow deflection angle of the shear 
layer at point A (fig. 4). FTHETA is called to compute the flow deflection angle and 
FINDB is called to compute the shock angles in each region. The subprograms OBLIQ. 



MLTRT, ABSVAL, and ISTROP compute flow variables and ratios of the flow variables. 
PINPUT prints input variables. The flow charts and listings of these subprograms are 
presented in part VII. The flow diagram and listing for the main program are given in 
the following sections. 

Program Flow Chart - Main 



Write heading 
v for ratios 


28 




/' CALL OBLIQ \ 

Compute flow -quantity^ 
\ ratios across shocks / 
\ 2 and 3 / 



1 

Set first guess for shear-layer angle 

1 



/ CALL TYP4 \ 

Compute shear-) 
\ layer angle / 


/ CALL OBLIQ \ 

Compute flow -quantity 
\ ratios across shocks i 
\ 4 and 5 / 


f_ CALL MLTRT \ 

Compute ratios wrt free stream. 



1 

Compute fig 

l 


/call findb\ 


Compute 


Write message - 
assume normal 
shock and compute 
ratios across it 


/Does\ 

' shock \ 
reflection/ 
\ exist?/ 


/ CALL OBLIQ \ 

Compute flow- 
quantity ratios 
\across shock 6/ 


/CALL MLTRT \ 

.Compute ratios , 
\ wrt region 1 / 


/CALL MLTRT\ 

.Compute ratios , 
\ wrt region 1 / 
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o o n o o o o r o o o o 


Program Listing — Main 


I.U1 

102 



o o <s a © e o 


A 

A 

3 

Thli PROGRAM PERFORMS A TYPE 

11 SHOCK INIERFERENCt PATTERN 

A 

4 

FOR TWO 01 MENS I CNAC FLOW 



A 

S 




A 

6 




A 

7 

DIMENSION T2STAR12), RH02S1RI2), V2STaR(zJ, REY2STRI2), HR ( 2 J » QFP 

A 

8 

(e», HPK ( 2 ) * UPM2I, STN2I2) 



A 

9 

DIMENSION PN(2> 



A 

10 

DIMENSION AA (2) , RN< 2) 



A 

11 

0 1 ME US ION STNI (2 ) 



A 

12 

DIMENSION RR(2) , TRtZ), HFPI2 

) 


A 

13 

COMMON PZ, RHOZ, TZ, P10PZ, 

RH010Z, 

T10IZ, 

A 

14 

PZ2, RH0Z2 , TZ2, P20PZ2, KHUZZ2, T2CTiZ, 

A 

IS 

PZ3 * KH0Z3, TZ3, P30PZ3, KH03Z3, T30TZ3, 

A 

lb 

. PZ4, RH0Z4, TZ4 , P40PZ4, RH04Z4, T4uTZ4, 

A 

17 

• PZ5 , RH0Z5 » TZ3, P30P 

xS, RH0SZ5, TS0IZ3, 

A 

18 

i PZ6* RH0Z6, Tib, PbUPlb, RHOoZb, T6U1Z6, 

A 

19 

, P20P1, Rh020i» T2UT1, 

A20A1 , 

u20ui , 

A 

20 

P3GP2, RF0302 i I3 GTe, 

A30A2, 

03002, 

A 

21 

l PoGPl, RH0301, T 3 uT 1 , 

AbOAl , 

03U01 , 

A 

22 

' P40P2 » RF0402, T40TZ, 

A4U A«d t 

U 4U OH 9 

A 

23 

P40P1, RH0401 t T4CT1, 

A40A1 , 

04UU1 , 

A 

24 

P50P3, RFC5U3, T^013, 

ASO A3 , 

US003 , 

A 

25 

P60P2 1 RH06G2, TbuT 2 , 

A6UA2 9 

ObQU^ , 

A 

26 

P60P4, Rh0604 , TbGT4, 

AbUA4 , 

Ut>L)U4 9 

A 

cl 

P50P1, RHC50 1 « TbGTl , 

AdOAa , 

USOOi , 

A 

28 

PbGPl, RHC60I, T6UTI, 

A60 Al , 

UtiUUi. 

A 

29 

COMMON PI, RHO I , Ti, AI, Ox, 

Vi Sol, 

REYi , 

A 

30 

P2 , RH02 , T2, A2, 02, 

VISC2, 

REY2, 

A 

31 

; P3 9 RH03t T3? U3* 

VISC3 , 

RE Y3 , 

A 

32 

i P4, RH04 , T4, A4, 04, 

V I S C 4 • 

Re Yn, 

A 

33 

PS, RH05, TS, AS, US, 

vises , 

REYS, 

A 

34 

* P 6 1 RH06» To » A6p U6? 

VISC6, 

RE Y6 

A 

33 

NAMELIST /DATA IN/ RM 1 ,G AMMA , THE TA8 , THET A I , T 1 NGR, NT i ME S , 1 PT , T » P , AMw 

A 

30 

. ,TREF , VREF , XL,S, TWALL,CP,PR,RUN,ANOL 

fc « ANGLEz ? 1 uL 

A 

37 

TOL IS THE CONVERGENCE CrITER 

ION FOR 

oONOl r luN L AND 2 

A 

3 ti 

INITIALIZE CONSTANTS 



A 

39 

uLT A= 4H8ET A 



A 

40 

1*0 — 1 



A 

41 

PN(i 1=1.29 



A 

42 

PNI2)=0.8S 



A 

43 

AA < 11=0. 332 



A 

44 

AA(2»= .185 



A 

43 

RNUJ =-.5 



A 

46 

RN(2|=-2.S34 



A 

47 




A 

4# 




A 

49 

INPUT DATA 



A 

50 




A 

31 


® & ® ® ® @ & 

GO00®®©0O®OOOOO®Oe & Q& i3&09a&O&<S 

A 

52 

READ IS s DA TA INI 



A 

S3 

IF (EN0F1LE 5) 102,103 



A 

6 4 

STOP 



A 

55 


29 



103 

CONTINUE 



A 

56 


wKI TE (6, DATA IN) 






Rk { 1 ) = SORT (PR) 



A 

57 


RR(2)=PK**| 1./3. ) 



A 

5b 


TH8DEU=THET AB 



A 

59 


THIDEu=THETAI 



A 

60 


WRITE (6,120) RUN 



A 

bl 

C. 

GAS CONSTANT ( F T-LBF / LB M-K ) 



A 

62 


K=1544 .3/ AMw 



A 

63 

£ 

JltiiSITY (SLUG/CU-FT) 



A 

64 


RH0=P* 144. / ( 32 . 2*R*T ) 



A 

65 


IF (1PT) 104,104,105 



A 

66 

C_ 

STAGNATION CONDITIONS 



A 

67 

104 

TZ=T 



A 

68 



RHUZ=KHO 



A 

69 



. J UsR 



A 

70 


GO TO 106 



A 

71 

£ 

FREE STREAM CONDITIONS 



A 

72 

105 

T 1 = T 



A 

73 


P1=P 



A 

74 

_ 

Kh01=RH0 



A 

75 

1U-6 __ 

GUNXIlAUE 



A 

76 


CALL ISTROP (GAMMA, RMi, Pi, PZ, P10PZ. IPT) 



A 

77 

£ 

PRINT OUT INPUT VARIABLES 



A 

78 


CALL PINPUT (RM1 .GAMMA, I PT , T , P , AMW , TREE , VKEF , XL , S , T «ALL , CP 

,PR ) 

A 

79 


WRITE (6,121 ) XL 



A 

80 


ITYP2=0 



A 

81 

C_ 

1IYP2 5 0 NORMAL 



A 

82 

£ 

1 COULD NOT FIND BET Ao 



A 

83 

£ 

2 CALCULATE LAST PU1NT 

BEFURE CONDITION 

1 

A 

84 

C 

3 INCREMENT NORMALLY UNTIL CONDITION 4 


A 

85 

C 

4 COULD NOT FIND BETA4 

UK BETAS 


A 

86 

c 

5 CALCULATE LAST POINT 

BEFORE CONDITION 

4 

A 

87 

c 

CONVERT ANGLES TC RADIANS 



A 

88 


TINCR=TINCR/57.296 



A 

89 


THETAd=THBOEG/ 57.296 



A 

90 


THETAI=THETA 1/57.296 



A 

91 


I NP66= 0 



A 

92 


1NPB I = 0 



A 

93 

c 

SAVE THETA AND T INCR TO RESTORE AFTER CONDITION 2 


A 

94 


S I NCR= T I NCR 



A 

95 


STHET A=THET A I 



A 

96 

c 

INITIALIZE THFOLD ANO THIULO FOR INITIAL 

ESTIMATE FOR THETAF 

A 

97 


THF0L0=THETAI+THETA8 



A 

98 


TH10LU=THETAI 



A 

99 

c 

THIFST SAVES ORIGINAL THETAI IN CASE MULTIPLE THtTAB*S ARE 

READ 

A 

100 


TH1FST=THIDEG 



A 

101 


DU 1 1 B 1=1, NTI ME S 



A 

102 


WRITE (6,125) 



A 

103 


IF (ANGLE. NE. BETA) GO TO iO 7 



A 

104 

c 

BtTAl HAS INPUT INSTEAD OF THETAI 



A 

105 


BETA 1= THETA I 



A 

106 


I NPB l = 1 



A 

107 


THETAI =FTHETA( GAMMA , RM1 , BET Ai ) 



A 

108 


GO TO 108 



A 

109 

107 

BETAI=FI NDB l GAMMA, RMi, THETAI, 1 , I ERROR) 



A 

110 


IF ( I ERROR-2 ) 108, 108,110 



A 

All 

1 0 6 

IF (ANGLE2.NE.BETA) GO TO 109 



A 

112 

c 

tiETAB WAS INPUT INSTEAD OF THETAb 



A 

113 


BETAb= THE TAB 



A 

1 14 


30 



o o r> r r o c~ r c> o o o c- o r cor 


INPBB= 1 

THETAB=-FTHETA( GAMMA , RM1 , AB B < b ETAB ) ) 

GO TO ill 

109 BE TAB=-FINDB( GAMMA, RMi , -THE TA B , 1 , 1 ERROR ) 

IF ( I ER ROR— 2 > 111,111,110 

HO. WRITE <6,122) 

_ GO TO 119 

1.11 TJ3BDfc6.= THETAB*57 .296 

T HJO.EG=T NET AI*57.296 

WRITE 16,123) TH ICEG, THBOEG 

_JrfRI.JJL_I6.tl2.'* > 

• • • • ^ • •••«•••• #•••••••••••• • • ••••••••••• ••*••••••••••«•*••*•«•«•<•• 

o . . 

C ERRORS IN FINDING BETA 

0 IERROK = 1 ONE SOLUTION WAS FOUNU, CONTINUE 

C 2 SOLUTION OIL) NuT bONVEKoE , USE LAS) B COMPUTE 

3 NO SULUTICN WAS FOUND, START NEW CASE 

4 NOT DEFINED 


SINbI=slN(BETAI) 

SlNBd=sIN(BETA6) 

dtiDEo=dETAb*57.296 

dluEG=uETAI*57«296 

FIND RATIOS FOR REGION 2 WITH RESPElT TO kEuIUN l 
CALL UdLIU (GAMMA, RM1,T HE TAd, EETAB.R ml , P 20P 1 , 1,2,10 
FIND RATIOS FOR REGION 3 WITH RESPECT TO REGION 1 
UALL OBLIQ (0AMMA,RMl,ThETAI,BETAI,RMB,PdUPl,i,3,iU) 
I SW=0 


lONOITION 1 

ITERATE ON ThETAF UNTIL P‘, = P5 


UT HET A= .01 
THETAF=0. 

BET A5 = 1.3708 

CALL TYP4 ( THETAF,BETA5,RM1 , RM2 , A BS I The T A d) , THETA4 , BET A4 , P20P1 ,GAM 
1 MA , T UL , I ERROR ) 

BET A5=-BETA5 
ThETAF=-THET AF 
Tri ETA 5 = THETAF 

ITERATION UN P4 = P5 IS CuMPLEIED 


ITERATIuN ON P4 AND P5 Is COMPLETED. USE CUMPuTED THETAF TO CALCUL 
CONDITIONS 4-6. 


SINB4=SIN(BETA4) 

SINB5=SlN(6ETA5) 

TFDEG= THETAF *180. /3. I4ld 
THFOLD-THET AF 



TH1ULD=THET 

A I 






c 

FIND 

RATIOS 

FOR 

REGION 

4 WITH 

RESPECT 

TO 

REG 


CALL 

OBLIQ 

(GAMMA, RM2, 

THETA4, 

BET A4,RM 

4, P4UP2 

C 

FIND 

RAT I OS 

FOR 

REGION 

5 wITH 

RESPECT 

TO 

Kfcb 


CALL 

UBL l U 

( GAMMA, RM1, 

Ads ( T HE 

TAFJ , ABS 

(BETAS ) 

c 

FIND 

RATIOS 

FOR 

REG ION 

4 WITH 

RESPECT 

TO 

K t b 


CALL 

MLTRT 

( P4CP2,P20P1 ,P40P1 

9 1 9 4 f iU) 




t 2 , 4 , 1 0 I 
.ON L 


IQ) 


A 115 

A 1 16 
A 117 
A 118 
A 119 
A 120 
A 121 
A 122 
A 123 
A 124 
A 125 
A 12b 
A 127 
A 128 
A 129 
A 130 
A 131 
A 132 
A 133 
A 134 
A 135 
A 136 
A 137 
A 138 
A 139 
A 140 
A 141 
A 142 
A 143 
A 144 
A 145 
A 146 
A 147 
A 148 
A 149 
A 150 
A 151 
A 152 
A 153 
A 154 
A 155 
A 15b 
A 157 
A 158 
A 159 
A 160 
A 161 
A 162 
A 163 
A 164 
A 165 
A 166 
A 167 
A 168 
A 169 
A 170 
A 171 
A 172 
A 173 
A 174 
A 1 73 


31 



0 0 0 0 0.0 1-0 O oo »- o o o o o o 


THETA6=THETAB-THETAP 

BETAd = -FINDa(GAMMA,RM<* s A6S( THETA6) , l, I ERROR) 
IE (IfcKkQR— 3) 113,112,113 


CONDITION 2 

SHOCK REFLECTION NOT POSSIBLE . 


12 RM2$q=RM2*RM2 
8ETAo=1.5708 
WHITE 16,120). 

BECAUSE UbLIUUE REFLECTION NUT POSSIBLE BETWEEN 4 ANU 6 USE NORMAL 
SHUCK RELATIONS BETWEEN 6 AND 2 
P60P2=1.+2.*GAMMA/(GAMMA+1. ) * ( RM2SU— 1. ) 

RH06u2=(GAMMA + l . )*RM2SU/ I ( G AMMA-i . ) *KM2S W*2. ) 

T6QT2* (2 . *G AMMA* RM2SU- ( GAMMA- 1 . ) ) * ( (GAMMA-i . ) *RM2SW+2. ) 
Tc*UTl=T 6QT2/( (GAMMA+l. )**2*RM2SU) 

A60A2 = ARATIO( TO0T2 ) 

RM6=S JRT ((( GAMMA-1.) *RM2SU+2. )/ (2 .* GAMMA*RM2Sw- ( G aMMA-1 . ) ) ) 
06U02=A60A2*RM6/RM2 

WRITE ( 6, i2 7 ) P6UP2 » RH0602 » T60T2, AbUa2 , U6UU*: 

FIND RATIOS FOR REGION 6 WITH RESPECT TO REGION 1 
CALL MLTRT ( P60P2 , P20P1 , PoOPi , 1 ,0 , 1 U ) 

Gu TO 114 

SHOCK REFLECTION POSSIBLE. USE OBLIUUc SHUCK RELATION BETWEEN 6 AN 

13 CALL G6L1Q { GAMM A , RM4 , ABS I T HET A6 ) , ABS I BE TAto ) , RMo , PoOP4 , 4 , 6 , 1 0) 

P6UP2=P60P4*P40P2 

FIND RATIOS FUR REGION 6 WITH RESPECT TO REGION 1 
CALL MLTRT ( PoOP4 , P40P 1»P60P1 ,1,6,10) 

6 « e 9 8 e 9 9 9 9 9 9 9 8 « • 8 9 9 9 9 9 9 9 9 9 9 00 « 9999999909999S99999 08000 00 0000000000 

WRITE THETA AND BETA FOR EACH REGION 


e89Bee89e9eeee<«999*9999e9e«B«999999««9«99««99e9 

114 WRITE (6,128) 

C WRITE THETA AND BETA FOR REGION 2 

ThFDEb-THETAF’S‘ 57.296 
THDEo* THBDEG 
BE TDEG* BET A 8*5 7. 296 
ABSTH=THBUEG 
ABS8T =BETDEG 
J = 2 . 

WKI1E (6,129) J, THDEGfBETOEG, A8STH,ABSBT ,KMi,RM2 
C WRITE THETA AND BETA FOR REGION 3 

ABSTh=THIUEG 
ABSBT-B1DEG 
J=3 

WHITE (6,129) J, THID£G,BIOEG, ABSTH, AbSBT.KMI , RM3 

C WRITE T HE 1 A AND BETA FOR REGION 4 

THUEb=THETA4*57.296 
BETUEu=bETA4*57.296 
ABSTH* THFDEG 
AB SB T= BE TDEG+ THBDEG 
J=4 

WRITE (6.129) J, THDEG.BETDEG. ABSTH, AB6BT , RM 2 , RM4 
C WRITE ThETA AND BETA FOR REGIGN 5 

TH0£l> = THETA5*57 .296 
BETDEG-BETA 5*57.296 
ABSTH* THFDEG 

ABSB T*8£TD£U 

J*5 


A 176 
A 177 
A 178 
A 179 
A 180 
A 181 
A 182 
A 183 
A 184 
A 185 
A 166 
A 187 
A 188 
A 189 
A 190 
A 191 
A 192 
A 193 
A 194 
A 195 
A 196 
A 197 
A 198 
A 199 
A 200 
A 201 
A 2 02 
A 2 03 
A 204 
A 205 
A 206 
A 207 
A 208 
A 2 09 
A 210 
A 211 
A 212 
A 213 
A 214 
A 215 
A 216 
A 21/ 
A 2 1 B 
A 219 
A 220 
A 221 
A 222 
A 223 
A 224 
A 225 
A 226 
A 22 7 
A 228 
A 229 
A 230 
A 231 
A 232 
A l33 
A 234 
A 235 
A 236 
A 237 
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jninlr ojnl ; o oj 1 n • nj ; ; nl . jol , ; < olonnjo 


WRITE (6,129) J , THDEG , BETUEG, ABS1 H » A6 6B T , RM3 , KM5 
C WHITE THETA AND BETA FOR, REGION t» 

THUEG=THETA6*57.296 
BETUEG=BETA6*57.296 

AbSTH = THBL)E_G 

IF (BETA6.EU. 1.5708) GO Tu 115 

Ad>BT=BETDEG + THFDEG 

RM=RM4 
GO TU 116 

Lib AbSBT =BETDEG+THBDEG 

RM=RM 2 _ 

116 *1=6 

WRITE (6,129) 1,TH0EG,BET0EG,ABSTH,AB3BT,RM,RM6 


CALCULATE AND WRITE PARAMETER VALUES FUR EAGH REulUN 


• • ««a«eee»ee0o*e«»Q9c«««ec0«o»a««ae»»«8sfl«aeaa« 

_ VI SC 1 = VI SC*J< VREF.TREF ,T1,S) 

A_lr SwRT ( 32 • 2 *GAMMA*R*T 1 1 
_U1=A1*RM1 
RE V 1= RHU 1*U 1 /VISC1 
WRITE (6,130) 

WR I TE (6 ,131 ) 

WRITE ABSOLUTE VALUES FOR REGION 1 

J = 1 .. . .. 

.WRITE (6,132) J,P1,RH01,T1,A1,U1,VI3C1,REY1,RM1 
WRITE ABSOLUTE VALUES FOR REGION 2 
1=2 

C_ALL_ABSVAL ( P2UP 1 , Pi , P2 , VR EF , TREF , S , J , 1 U.RM2 ) 

WRITE ABSOLUTE VALUES FOR REGION 3 

1=3 

CALL ABSVAL ( P3QPL , PI , P3 , VR EF , TREF , S , J , IU,KM3 ) 

write absolute values fur region a 

.1=4 

_CALL_AttSVAL. i P40P1 , P 1, PA, VREF ,TREF , S, 1 , IU.RMA) 
WRITE ABSOLUTE VALUES FOR REGION 5 
1=5 

CALL ABSVAL ( P50P1 ,P1 , P5 , VREF , TREF , S , J, I U.RM5 ) 
WRITE ABSOLUTE VALUES FOR REGION 6 
1=6 

CALL ABSVAL ( P60P 1 ,P 1 , P6 , VR EF , TREF , S , J , 1 0 ,RM6 ) 


CALCULATE AND WRITE STAGNATION VALUES FOR Each REGION 


WRITE. .16,1 5 A) 

.... ... 1=1 

WRIIE (.6,132) l.PZ.RHOZ.TZ 

. ...1=2 . 

CALL I STROP (GAMMA,RM2,P2,PZ2,P20PZ2,2) 

EZ20Z=PZ2/PZ 

WRJLI.E J.6,133) .1 , PZ2 , RH0Z2 » T Zz , PZ20Z 

1=3 

CALI I STROP (GAMMA, RM3,P3,PZ3, P30PZJ* 3 ) 

PZ3jQZ=PZ3/PZ 

kaiJE....(6 , 133 ) J , PZ3, RHQZ3 , TZ3 , PZ3UZ 

CALL (STROP (G AMH A » RMA, P 4 » P ZA t PAOP ZA, A) 

PZ40Z=PZ4/PZ . 

WHILE. -16, 1331 1 , PZA, RHOZA , TZA , PZAOZ 


A 238 
A 2 39 
A 2 AO 
A 2A1 
A 2 A2 
A 2 A3 
A 2 AA 
A 2 A5 
A 2A6 
A 2A7 
A 2A8 
A 2A9 
A 250 
A 251 
A 2 52 
A 253 
A 25A 
A 255 
A 256 
A 257 
A 2 5t 
A 259 
A 260 
A 261 
A 262 
A 263 
A 26A 
A 265 
A 266 
A 267 
A 268 
A 269 
A 270 
A 271 
A 272 
A 273 
A 274 
A 275 
A 276 
A 277 
A 278 
A 279 
A 230 
A 281 
A 282 
A 233 
A 2 84 
A 285 
A 286 
A 287 
A 288 
A 289 
A 290 
A 291 
A 292 
A 293 
A 294 
A 295 
A 296 
A 297 
A 298 
A 299 
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b 

L 

c 

c 

6 

L 

c 

c 


c 


c 

c 

c 

c 

c 

c 

117 


1 IB 
119 


c 

120 


121 
L 2 3 


ltd** 

12b 

1 £6 


6-5 

Call ISTRGP (GAMMA, KM5,P5,PZ5 ,P5UPZ5,:>) 
PZ50Z=PZ5/PZ 

WK 1 T t 16, 133) J , PZ 5, RHuZb,f Z5 , PZ5U1 
J = 6 

LaLL ISTRUP (GAMMA, RM6,Po,PZb ,PouPZ6»o) 
P 260Z = PZ6/ P Z 

WRITE (6,133) J , PZo , RH0Z6 , f Zb , PZoOZ 



CALCULAIE AMD wklTE STANTON NUMBER, FLAT PLATE HEAT TRANSFER 
COEFFICIENT l HFP) , AND HEAT I No RATE(JFP) IN REGION <; 


• •«••••••«•• e a •••••• see • • a s t • • « • • « e « o •••<••«••«••« ••••o«*««9aao**o 

J = 1 IS LAMINAR AND J=2 IS TURBULENT 
DU 117 J=i,2 
RECOVERY TEMPERATURE 
TRI a) =T2+RR l J) TZ-T2) 

ECRERT *S REFERENCE TEMPERATURE 
T2STARIJ )=.5*(TWALL+T2)+.22*(TR(J)-l2) 

Rh02STR( J)=199.*P2/( il. 2*k* T2 ST AR I J ) ) 

V2STAR ( J) = V I SCJ< VREF , TREE ,T 2S I AR, SI 
REY2STR( J )=RHG2STR (J ) *U2*AL / V 2BTAR ( J J 
LUCAL STANTON NUMBER IN REo TUN 2 AT IMPINGEMENT 
CF2=AA ( J)*REY2STR**RN(J ) 

IF (J.EQ.2) CF2=AA( J)*ALUG10< REY2STK)**RN(J) 

STN2( J)=CF2*PR**(-2./3. I 

FLAT PLATE HEAT TRANSFER CUEF ( dTU/StC-F T2-RI 
HFP( Dl =STN2 ( J)*RHC2STR*U2*CP/ 77B. 

FREE STREAM STANTON NUMBER 
STN1(J)-778.#HFP(J)/ { RH01*U 1*CP ) 

FLAT PLATE HEATING R A TE ( B TU /S EC-F T2 ) 

UFPI U ) =HFP ( J )* ( T R ( J ) -T WALL ) 

MARKAR l AN HEAT TRANSFER RATIOS 
HKIJ) = PgOP2*>!'PN< J) 

PEAR HEATING RATE 
UPM J ) =HR l J ) 9GF P ( J ) 

PEAK HEAT TRANSFER CUEF 
HPMJl =HFP ( J ) <“HR ( J I 
WRITE 16,135) 

WRITE 16,136 ) gFP(l) ,HFP(i) ,STN2( 1) , S TNil 1 ) , PoUP2 , HR 1 1 ) , QPK< 1) , HPK 

1 ( 1 ) 

WRITE (o,137) UFP(2),HFP(2) ,STN2(2),STNi(2) , PoOP2 , HR( 2 ) , OPK ( 2 ) - HPK 
1 ( 2 ) 

WRITE (6,136) 

TH£TAI = THETA1*-TINCR 
CONTINUE 

RETURN THETA! AND T I NCR TU OK I GIN AL VALUES 
THE TA I =TH IFS T 
T I NC R= S INCR 
GU TU 101 

FORMAT UH1 ,9X,99HTHIS PROGRAM PERFORMS A TYPt 2 SHOCK INTERFERENC 
1E.8H PATTERN ,//, 13H RUN NUMBER ,F5.2/) 

FORMAT { 1 6H XL ( WALL LENGTH) , L 5X, F15 .6 » 9H Ff) 

FORMAT { //33H NO SOLUTION - BOW SHOCK OETALhEO) 

FORMAT ( 1 H 1 , 20H1NPUT VARIABLES ARE /9H THETA1 = » F9.9, 19H DEG, AND 
1THETAB - ,F9.9 ,9H DEG//) 

FORMAT ( / / 1 2 H RATIOS ARE / ) 

FORMA T ( iH / ) 

FORMAT {/IX .93HSFCCK REFLECTION NOT PUSSIbLE AT THIS POINT/) 


A 300 
A 301 
A 302 
A 3 03 
A 309 
A 303 
A 3 06 
A 307 
A 3 OB 
A 309 
A 3 10 
A 311 
A 312 
A 313 
A 319 
A 315 
A 316 
A 317 
A 318 
A 319 
A 320 
A 321 
A 322 
A 323 
A 329 
A 325 
A 326 
A 327 
A 328 
A 329 
A 330 
A 331 
A 332 
A 333 
A 339 
A 335 
A 336 
A 337 
A 338 
A 339 
A 390 
A 391 
A 392 
A 393 
A 399 
A 395 
A 396 
A 397 
A 398 
A 399 
A 350 
A 351 
A 352 
A 353 
A 3 59 
A 3 55 
A 356 
A 357 
A 358 
A 359 
A 360 
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Iz7 FORMAT I 1 X, 6 HP 6/P2= » F 6 • 4 » 5X » 7HRH06/2- s F 8 .4 , 3 X 5 0 HT 6 / T2= «FB .4 s 3X , 6H.4 A 361 

16/ A2= , F8 .4, 5 X* 6HU6/U2= » F8 .4 ) A 362 

128 FURMAT 1//7H REGION, 5X, 14HRELATIVE ANGLE , lOx , 14HAB SOLO TE ANGLE/9X, A 363 

1 5HTHE TA»8X,4HBETA,7X,3HTHETA, BX»4HBET A, 29H UPSTREAM MALH LOCAL A 364 
2 MACH J A 365 

129 FURMAT ( 1 X, 1 1 , 4F 12 .4 , 2F 13 .4 » A 366 

130 FORMAT (//7H REGION, 1 OX, iHP, 12 X, 3H.RH0 ,11X,1HT ,11X,1HA,11X,1HU,13X, A 367 

12HMU, 3X, 1 1H REYNOLDS NU,9H MACh NO) A 368 

131 FORMAT (14X,3HPSI,4X,iOH3LUG/CU F T , 5X , 7HKAWKI ME , 6 X ,bhFT/ SEC , 6 X , 6 HF A 369 

1T/SEC,4X, 11 HS LUG/FT- SEC, 11X «4Hl/PT ) A 370 

132 FORMAT ( IX, I 5, FI 2. 4, E15 . 5 , 3 FI 2.4 , 2fc 13. 5 ,F8. 41 A 371 

133 FORMAT (1X,I5,F12.4,E15.5,3F12.6,2£13.51 A 372 

i->4 FURMAT (/1X.25HSTAGNAT ION CONOITIUNS ARE/7H REG I ON , oX , 3HPST AG , 12X, A 373 

1 3hKHU ,7X,5HTSTAG,4X,i2HPSIAG/PSTAGl,/,14X,4HPalA,4X, 11HSLUGS/CU FT A 374 

2,3X, 7HRANKINE) A 375 

133 FURMAT U/14H HEaT TRANSFER, / 17X, 1HU, 14 X, 3HHFP ,‘12X, 8HSTANTUN2, 7X»8 A 376 

lHSTANTUNl,7X,5HP6/P2,10X,2HHR,12X,3HuPK,l^.X,3HHPKI A 377 

136 FURMA 1 ( 8 H L AM IN AR ,2X , 8 C E 15 . 5 1) A 378 

137 FORMAT 110H TURBULENT , 8 ( E 15 .5 I) A 379 

138 FORMAT (IH0.41HHFP = HEAT TRANSFER COEFIBTU/SO FT-SEC-R 1 /35H <J = A 380 

1 HEAT TRANSFERIBTU/SU FT-SECJ1 A 381 

END A 382- 

C ........... .............. ........ ...... B 1 

C .............. ......................................... ........... B 2 


USAGE 


Program SHOCK for a type II interference pattern uses the standard FORTRAN 
NAMELIST input with $DATAIN as the NAMELIST name. The input includes the flow con- 
ditions, gas properties, impinging -flow deflection or shock angle, and impingement loca- 
tion on the body. The program has an option to increment the body angle. These input 
variables should be applied first to the type I program to determine whether the interfer- 
ence is type I or II. 

A description of the input and output variables and a sample case are presented. 


Input Description 

The $DATAIN input for type II is as follows: 


RUN run number for identification 

RM1 Moo, free -stream Mach number 

GAMMA Cp jc v , ratio of specific heats 

THETAI shock generator angle, deg; or (3 i? impinging shock angle, deg 
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THETAB 

TINCR 

NTIMES 

IPT 

T 

P 

AMW 

TREF 

VREF 

S 

XL 

TWALL 

CP 

PR 

ANGLE 
ANGLE 2 
TOL 


0 b , body angle, deg (input as negative angle); or bow shock angle, deg 
(input as negative angle) 

increment for 0j_, deg 

number of times to increment 0^ 

initial point; 0 for stagnation conditions, 1 for free -stream static conditions 
temperature at IPT, °R 
pressure at IPT, psia 

molecular weight (used to compute gas constant) 
reference temperature for computing viscosity, °R 
reference viscosity for computing viscosity, slugs/ft-sec 

Sutherland’s constant in viscosity equation 

i < 

Xi, distance from leading edge to impingement point, ft 

temperature at wall, °R 

Cp, specific heat at constant pressure, ft-lbf/slug-°R 

Np r , Prandtl number 

THET if input; BETA if fa input 

THET if 0 b input; BETA if /3 b input 

acceptable tolerance for equal pressures (0.001) 
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Output Description 

The output is printing only. A heading and pertinent input for identification are 
printed before the calculations. 

RUN NUMBER 

run number for identification 

Ml 

Moo, Mach number in free stream 

GAMMA(CP/CV) 

ratio of specific heats 

TEMP AT POINT "IPT" 

input as T, °R 

PRES AT POINT "IPT" 

input as P, psia 

MOLECULAR WEIGHT 

molecular weight (used to compute gas constant) 

REFERENCE TEMP 

reference temperature for computing viscosity, °R 

REFERENCE VISCOSITY 

reference viscosity for computing viscosity, slugs/ft-sec 

S (SUTHERLAND NUMBER) 

Sutherland’s constant in viscosity equation 

TEMP AT WALL 

T w , °R 

CP 

Cp, specific heat at constant pressure, ft-lbf/slug-°R 

PRANDTL NUMBER 

Np r , Prandtl number 

XL (WALL LENGTH) 

X^, length from leading edge to impingement point, ft 

THETAI 

6 i, shock generator angle, deg 

THETAB 

0 b , body angle, deg 

P2/P1, etc. 

Pg/pj, etc., pressure ratios for regions listed 

RH02/1, etc. 

Pg/Pp etc., density ratios for regions listed 
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T2/T1, etc. 


A2/A1, etc. 

U2/U1, etc. 
RELATIVE ANGLE 
THETA 
BETA 

ABSOLUTE ANGLE 
THETA 
BETA 

UPSTREAM MACH 
LOCAL MACH 
REGION 
P 

RHO 

T 

A 

U 

MU 

REYNOLDS NO 


T 2 /T 1 , etc., temperature ratios for regions listed 

a 2 / a l ’ e ^ c ‘> rat * os °f s P ee( is of sound in regions listed 
u 2 / u l’ etc -> velocit y ra tios for regions listed 

flow angle relative to flow in upstream region, deg 
shock angle relative to flow in upstream region, deg 

flow angle relative to free -stream flow, deg 

shock angle relative to free -stream flow, deg 

Mach number in upstream region 

local Mach number 

region in shock pattern 

static pressure in region, psia 

static density in region, slugs/ft^ 

static temperature in region, °R 

speed of sound in region, ft/sec 

velocity in region, ft/sec 

static viscosity in region, slugs/ft-sec 

Reynolds number per foot in region 


38 



MACH NO 


Mach number in region 


The following stagnation conditions are then listed: 

PSTAG total pressure in region, psia 

RHO total density in region, slugs/ft 2 

TSTAG total temperature in region, °R 

PST AG/PST AG1 ratio of total pressure in region to free -stream total pressure 
The pressure ratio and heat transfer for laminar and turbulent flow are listed as 


Q 

heat -transfer rate, Btu/ft 2 -sec 

HFP 

flat -plate heat -transfer coefficient, Btu/ft 2 -sec-°R 

STANTON2 

local incompressible Stanton number 

STANTON1 

compressible free-stream Stanton number 

P6/P2 

peak pressure ratio 

HR 

Markarian heat -transfer ratio 

QPK 

peak heating rate 

HPK 

peak heat -transfer coefficient 


Sample Case - Input 


iDATAIN 


RM1 

0.faE+01» 

GAMMA = 

0 , 1 4-t + 01 1 

THETAB = 

-0 • 3 5E +02 > 

ThETAX = 

0.5E +01 t 
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FINCR 


0 . 5 E + Ql * 


NTIMES = l e 

IPT = O f 

T = 0.9E+03, 

P = 0.4E+03f 

AMW - 0.2897E+02, 

TREE = 0 . 9 3E +03 » 

VREF = 0.3801E-06, 

XL = 0.25E+00, 

S = 0 . 1 586E - *- 03 t 

TkALL = 0.55E+03, 

CP = G.600oE+04, 

PR = 0.72E+00, 

RUN = u.lE+01, 

ANGLE = 0.69*04 725 763 109E+93 > 

ANGLE2 = u . 6 9404 725 765 10 9E+93 * 

TOL = 0.1 E -02 f 

$ENU 

Sample Case - Output 

THIS PROGRAM PERFORMS A TYPE 2 SHOCK INTERFERENCE PATTERN 
RUN NUMBER 1.00 

INPUT VARI AtSLES ARE 

RANK INE 
PSI 

RANK INE 
SLUG/ (FT— SECJ 

RANK INE 

F T-L OF /< SLUG-RANK INE) 
FT 


Ml 

GAMMA ( CP/C V ) 

TEMP AT POINT 0 
PRES AT POINT 0 
MOLECULAR HEIGHT 
REFERENCE I EMP 
REFERENCE VISCOSITY 
SISUTHERLAND NUMBER! 
TEMP AT WALL 
CP 

pranutl Number 

XL ( WALL LENGTH! 


6.000 

1.4C0000 

900.000000 

400. 000000 
28.570000 

530.000000 
3. 801000E-07 

158.600 
550. QUO 
6006.000 
. 720000 
.250000 
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INPUT VARIABLES ARE 

THETAI » 5.0000 DEG, AND THETAB = -35.0000 DEG 


RATICS ARE 


P2/P 1= 23.0772 

RH02/ 1= 

4.7963 

T2/T1 = 

4.8114 

A2/A1= 

2.1935 

U2/U1= 

.6860 

P3/P1= 

2.0103 

RHU3/ 1= 

1.6306 

T3/T1= 

1.2326 

A3/A1= 

1. 1103 

U3/U1* 

.9837 

P4/P2- 

1. 7913 

RH04/2= 

1.5078 

T4/T2= 

1.1860 

A4/A2= 

1.0900 

U4/U2* 

.8562 

P5/P1= 41.3370 

RHU5/1= 

5.2606 

T5/T1= 

7.8578 

A5/A1= 

2.8032 

U5/Ui= 

.2180 

P4/P1= 41.3371 

RH04/1 = 

7.2318 

T4/T1= 

5.7160 

A4 / A 1 = 

2.3908 

U4/U1= 

.5874 

P6/P4= 

1. 9068 

RHU6/ 4= 

1.5734 

T6/T4= 

1.2119 

A6/A4= 

1.1008 

U6/U4= 

.7159 

P6/Pi= 78.8202 

RHU6/ 1= 

11.3766 

T6/T1= 

6.9271 

A6/A1 = 

2.6319 

U6/U1= 

.4205 


REGION RELATIVE ANGLE 

ABSOLUTE ANGLE 




THETA 

BETA 

THETA 

8 ETA 

UPSTREAM MACH 

LOCAL MACH 

2 

-35.0000 

-48.0670 

-35.0000 

-48 .0670 

6.0000 

1.8765 

3 

5.0000 

13.1598 

5.0000 

13.1598 

6. 0000 

5.3157 

4 

11.3299 

43.6580 

-23.6701 

8.6580 

1.8765 

1.4741 

5 

— 23 « 6 70 1 

-83.7595 

-23.6701 

-83.7595 

5.3157 

.4666 

6 

-11.3299 

-64. 7425 

-35.0000 

-88.4127 

1. 4741 

.9585 


REGION P RHO T a U MU REYNOLDS NO MACH NO 


PSI SLUG/CU FT 
X .2533 1.93645E-04 

2 5.8465 9.2 878 IE— 04 

3 .5093 3.1 5760E-04 

4 10.4725 1.40040E-03 

5 10.4725 1.0 1869E-03 

6 19.9687 2.20341E— 03 

STAGNATION CONDITIONS ARE 
REGION PSTAG RHO 

PSIA SLUGS/CU FT 

1 400.0000 3.72656E— 02 

2 37.7814 3.52176E-03 

3 38o.5123 3.60280E-02 

4 37.0316 3.45186 E-03 

5 12.1574 1. 13324E— 03 

6 36.0393 3.35937E-03 


RANKINE FT/SEC FT/SEC 

109.7561 513.5679 3081.4074 

528.0852 1126.5113 2113.9285 

135.3111 570.2302 3031.1919 

627.3680 1227.8483 1809.9101 

862.4436 1439.6234 671.7546 

760.2870 1351.6752 1295.6479 


T ST AG PST AG/PSTAG1 
RANKINE 
900.0000 

900.000039 .094454 

900.008771 .966281 

900.000057 .092579 

899.999987 .030394 

900.000056 .090093 


UG/FT-SEC 1/FT 

8.46377E— 08 7.05004EFQ6 6.0000 

3.79038E-07 5.17989E+06 1.8765 

1. 06990E— 07 8.94597E+06 5.3157 

4.318UE— 07 5.86970E+06 1.4741 

5.41796E— 07 1.26304E*06 .4666 

4.96218E— 07 5.75321E+06 .9585 


HEAT TRANSFER 

Q HFP STANTQN2 STANT0N1 P6/P2 HR QPK 

LAMINAR 1.58922E*00 5.41165E-03 4.11392E-04 1.17481E-03 3.41551E+00 4.87705E+00 J.Z5069E*00 

TURBULENT 9. 18804E+00 2.95032E-02 2.24282E-03 6.40483E-03 3.41551E+Q0 2.84078E+00 2.61012EF01 


HPK 

2. 63929E-02 
8.38120E— 02 



hFP 

y 


HEAT TRANSFER CUEFtBTu/Sw FT-SEC-RJ 
HtAI TRANSFER (BT U/ SU FT-StCJ 



PART III - TYPE III INTERFERENCE 


PROBLEM DISCUSSION 


A type III shock-interference pattern occurs when a weak impinging shock inter- 
sects a strong detached bow shock, as illustrated in figure 1(c). The shear layer ema- 
nating from the shock intersection attaches to the surface with subsonic flow above the 
shear layer turning upward and supersonic flow below the layer passing through an oblique 
shock in order to turn parallel with the surface. On a blunt body the shock intersection 
occurs near or above the lower sonic point, as shown in figure 2. 

Once the flow conditions in region 1 and either the angle 0i or |3j are specified, 
the triple-shock configuration at point A shown in figure 5 is solved by using an iterative 
procedure similar to that discussed for type I. The iterative procedure for type III dif- 
fers in that the strong-shock solutions of the Rankine-Hugoniot equations are used in 
going from region 1 to region 2. The reflected shock at the attachment point C intersects 
the transmitted bow shock at point B and results in another triple shock. The analysis 
thus far is exact. Results from this analysis are used in the following approximate ana- 
lytic technique to determine the peak pressure and heat transfer at the shear-layer 
attachment point. The reflected-shock angle at point C is obtained once the flow deflec- 
tion angle 6 5 is specified. The reflected-shock angle and wall pressure (peak pres- 
sure) in region 5 are obtained from the Rankine-Hugoniot relations for attachment on a 
two-dimensional body. For attachment on a body of revolution, tangent-cone approxima- 
tions (ref. 9) are used to determine the shock angle and wall pressure. In the present 
analysis, the flow model consists of a plane shock intersecting the bow shock of a sphere 
in the vertical plane of symmetry. 


Peak heating at the wall is caused by the attaching shear layer, which is similar to 
the case of a reattaching shear layer in a separation region. Correlations proposed by 
Bushnell and Weinstein (ref. 3) for reattachment heating on two-dimensional ramps are 
used. The peak heat transfer at attachment is 


Qpk ~ A P w u 5 c p( T aw 



/ sin ^5\ N 

\ P w U 5 5 Sl/ 


( 2 ) 


where ug is the velocity in region 5, the subscript w indicates wall values, and 6g^ 
is the shear-layer thickness at attachment. The constants A and N (from data in 
ref. 3) are 0.19 and 0.5 for a laminar shear-layer reattachment, and 0.021 and 0.2 for a 
turbulent interaction. For the present case (ref. 2) the attachment angles are higher 
than those of reference 3 and the attachment is three dimensional in nature. Therefore, 
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values of A obtained from correlations of peak-heating data for free shear layers 
reported in references 2 and 10 are used (0.40 for laminar and 0.06 for turbulent 
interactions). 

The shear-layer thickness at attachment is obtained from the following expressions 
in reference 3: 


Laminar, 


5 


SL 


5.0 


2 SL m 4\ °° 5 
v P4 U 4 / 


Turbulent, 


5 


SL 


0.123Z SL 


(3) 

(4) 


where is the length of the shear layer from A to C in figure 5. The shear-layer 

length is determined from the geometry of the triangle ABC formed by the shock and the 
shear layer and from the shock length AB (or L gH ), which must be obtained experimen- 
tally or from some approximate method. Shear -layer transition data discussed in ref- 
erence 11 are useful in determining the state of the shear layer at attachment. 


The reference heating used is the stagnation -point value on a sphere obtained from 
reference 12: 


Qstag = °-’<H N Pr) 


where (from ref. 13) 



(5) 




1 + 


(r - i)M 0 



( 6 ) 


PROGRAM DESCRIPTION 


The main program reads the input, calls the various subprograms, and computes 
the heat transfer. TYP4 computes the flow deflection angle of the shear layer. FTHETA 
is called to compute the flow angle and FINDB is called to compute the shock angles in 
each region. The subprograms OBLIQ, FINDM, PRATIO, MLTRT, ABSVAL, AND 
ISTROP compute flow variables and ratios of the flow variables. PINPUT prints the 
input variables. The flow charts and listings of these subprograms are presented in 
part VII. For the axisymmetric option, FINDBC computes the conical shock angle at the 
shear-layer attachment and PRATC computes the ratio of the pressure at the wall to the 
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static pressui’e upstream of the conical shock by use of a tangent -cone approximation. 
The flow diagrams and listings for the main program, PRATC, and FINDBC follow. 


Program Flow Chart - Main 
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/CALL FINDB\ 
Compute 
% 


Write heading \ 
\ for ratios 


t x 

/ CALL FTHETA\ 
Compute 


/ CALL FINDM \ 

Find Mach number 
\ in region 3 , 


/ CALL PRATIO \ 

Find pressure ratio 
\ across shock 3 / 




Set first guess for shear-layer angle 




/ CALL TYP4 \ 

.Compute shear- 
\ layer angle / 


CALL OBLIQ 


'Compute flow -quantity 
ratios across shocks 
2,3, and 4 


CALL MLTRT 


Compute ratios wrt free stream , 


Write angles and Mach \ 
\numbers for each region! 




Calculate and write flow 
conditions in region 1 

1 



CALL ABSVAL 


Calculate and write flow 
.conditions in regions 2, 
3, and 4 


CALL ISTROP 


Calculate 

, stagnation conditions 


Write stagnation 
conditions 
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4 


No 


Has 

OPTION ' 
been 
set? 


Yes 











n o o 



Program Listing - Main 


PROGRAM 

SHOCK ( INPUT, OUTPUT, TAPES 

= INPUT ,TAPEG = OUTPUTJ 

A 

1 





* • • A 

2 





A 

3 

PURPOSE 




A 

4 

THIS program 

PERFORMS A TYPF III 

SHOCK INTERFERENCE PATTERN 

A 

5 





A 

6 





, . # A 

T 

common 

PZ, PHQZ , TZ, P1QPZ, RH010Z, TIOTZ, 

A 

B 

1 

PZ?, 

RHOZ2, TZ2, P20PZ2, 

RH02Z2, T20TZ2, 

A 

9 

2 

PZ3, 

RHOZT, TZ3 , P3QPZ3, 

RH03Z3, T 30T Z3 , 

A 

10 

3 

PZA, 

RH0Z4, T7A, P4DPZ4, 

RH04Z4, T40TZ4, 

A 

11 

A 

PZS, 

RHOZS, TZS, PSOPZS, 

RH05Z5, T50TZS, 

A 

12 

5 

P2QP1 

, RH0201, T2HTL, A20AI, U20U1 , 

A 

I 3 
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c 

c 

c 

c 

c 

101 


6 

P30P1, RH0301, T30T1, 

A30A1, 

U30U1 , 

A 

14 

7 

P40P3, RH0403 , T40T3, 

A 4 0 A 3 , 

U40U3 , 

A 

15 

8 

P 4 0 5 1 , RH0401, T40T1, 

A40A1, 

U40U1 , 

A 

16 

9 

P50P4, RH0504, T50T4, 

A50A4, 

U50U4, 

A 

17 

$ 

P50P1, PHO501, T 50T 1 , 

A50AI, 

U50U 1, 

A 

18 

$ 

PI, P HO l , Tl, Al, Ul, 

VI SCI , 

REY1 , 

A 

19 

t 

P2, RH02, T2, A2, U2, 

V1SC2, 

REY2, 

A 

20 

S 

P3, R HO 3 , T 3 , A3, U3 , 

VI SC 3, 

REY3, 

A 

21 

$ 

^4, R HO 4 , T 4, A4, U4, 

VISC4, 

REY4, 

A 

22 

$ 

p 5 , RH05, T 5 , A5, U5 , 

VI SC 5, 

REY5 

A 

23 


or MENS ION RAT HO) 

r 'IMF,NSION VALUl(T), VALUZ(7>, RATI0(7), VAUJJ(7) 

DIMENSION DEL T A ( 2 ) » CHWALU2), TR{2), QRATE ( 2 ) 

SET DEFAULTS FOR INPUT VARIABLES 

DATA GAMMA/1. 4/, SV INC/5.0/, NTT ME S/l/.TPT/O/ , A MW/2 8. 97/ 

DATA THSVI /O. /.BTSVI /O. / 

DA T A TRFF/532 .98/, VREF/. 380 7E- 6 / , P B / 1 . 0/, S/2 1 6 . / , TWAL L / 530 . / 

DATA XL /L.O/, CP/6006. /, PR/. 72/ 

OAT A ANGLE/4HTHET/, TOI /. 001/ 

DATA XLR3/0./ 

DATA BET A/4HB ETA/ 

DATA CODE/ 4H A XI S/ , C ODE l /4HN0NE/ 

OAT A THETA5/9 . / , C K TH 5/0/ , RUN /l . / 

MAMELIST /DAT a IN/ RM l , G AMMA , TH ET A I , T I NCR , NT I M ES , I PT , T , P , AMW, T REF , V 
1 R EF,R 0,S,TVMLL,XL»CP,PR, OPT I ON * TOL ,ANGLF,XLPB,THETA5,CKTH5,RUN 


o o e » e o i 


' 6 o e e ® o 


> e o • « « 


INPUT DATA 


o © e ® a o i 


102 
1 03 


104 

105 

C 

C 


TINCR=SVTNC 
T H p TA I =THSVI 
BET A I = BTS V I 
XLR B= 0 . 

10 = 1 

READ (5, DATA! N) 

IF (ENDFILF 5 ) 102, 103 

STno 

CONTI NUF 
WRTT C (6, DATA IN* 

WRITE (6,125) RIJN 
TH SVI = THET A I 
BTSVI=BFTA1 
SVTNC = T I NCR 

IF (XLRB.NE.O.) GO TO 104 
XLRR=XL/RB 

00 TO 105 
XL=XLRB*RR 
CONTI NUF 

XI 1 2 = XL 

GAS CONSTANT! FT-I.BF/LBM-R) 

R= 1 544 . 3/ AMW 

DENSITY ( SLUG/! CU FT) 

PH0 = p*144./( 3 2.2*R*T) 

CALL ° INPUT ( RM1 , GAMMA, I PT,T,P , AMW „TREF , VREF, XL , S , TW AL L , CP , PR ) 
WRITE (6,126) XL 1 2 
WRITE ! 6 , 1 27 ) RB 
WRITE (6,1251 OPTION 

1 N P B = 0 

TINCR=TI NCR/57.296 
THETAT=THFTAI/57.296 
BFTAl=BETAI / 57 . 296 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

5 3 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
61 
68 

69 

70 

71 

72 

73 

74 
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THFTAT = T'4FTM-T I NCR 




A 

75 


RETAI=RETAI-TINCR 




A 

76 


IF ( I PT » 1.06, 106, 107 




A 

77 

106 

TZ = T 




A 

78 


RHOZ=«HO 




A 

79 


PZ = P 




A 

80 


GO TO 100 




A 

81 

107 

T 1 = T 




A 

82 


RH01 = RHO 




A 

83 


°1 = P 




A 

B4 

1 0« 

CONTI NUE 




A 

85 


CALL ISTROP (GAMMA, RM1 , PI, PZ,P10PZ,[PT) 




A 

86 


"0 124 1=1, NT IMF S 




A 

87 


I sw=o 




A 

88 


1C ( ANGLE. mf.bftm GO rn iop 




A 

89 

c 

F, F T A I WAS INPUT INSTFAD OF THE T A I 




A 

90 


I N PB= 1 




A 

91 


PFTAI=BFTA1+TINCR 




A 

92 


THFTAT = FTHFTA(GAM M A,PM1, RET All 




A 

93 


go TO ill 




A 

94 

109 

1 HFT4I = THFTAI 4-TINCR 




A 

95 


p f TAI =FT NDR( GAMMA, RMl , THFTA I ,1 , 1 ERROR ) 




A 

96 


TF (ICRROR-2) 111,111,110 




A 

97 

1 10 

GO TO (101,101,101,101), 1FRP0R 




A 

98 

c 

FRROPS IN FINDING 

BETA 



A 

99 

c 

I FRROR = l ONF SOLUTION WAS FOUND, CONTINUE 

A 

100 

c 

2 SOLUTION DID NOT CONVFRGF, 

USE LAST BETA COMPU 

A 

10L 

0 

0 NO SOLUTION WAS FOUND 

, START 

NEW CASE 

A 

102 

r. 

4 MOT OFF INFO 




A 

103 

ui 

01 DFG=BFTAI*180./3. 141 6 




A 

104 


THIDEG=THFTAI*180./3. 1416 




A 

105 


WRITE (6,129) 




A 

106 


WRITE (6,130) TH I DEG , RI DEG 




A 

107 

c 

r. 





A 

108 





A 

109 

c 

ITCRATF ON THFTAF UNTIL P2 = P4 




A 

110 

r 





A 

111 

f 





A 

112 


thetaf=o. 




A 

113 


BCTA2=( . 5708 




A 

114 


QM3 = FTNDM( GAMMA, RM1, SIN (BET Alt , BET A I , THETA I ) 



A 

115 


P30P1 = PR AT I0( GAMMA, RMl, SIN (BET AT)) 




A 

116 

c 

A typF 4 INTFP.FFR ENCF PATTERN WITH INITIAL MACH NO RMl 

A 

117 

c 

FNTFRING AT ANGLE 0 DEGREES 




A 

118 


FAIL TYP4 ( THETAE, BETA2,PM1 ,RM3,THETAl ,THETA4, 

BETA4, P30PI.G AMMA.TO 

A 

119 


11 , I FRROR ) 




A 

120 


IF (IFRROR-3) 112,101,101 




A 

121 

c 





A 

122 

c 





A 

123 

c 

CALCULATE AND WRITE PARAMETER RATIOS FOR 

2/1, 

4/3 

, 4/ l 

A 

124 

c 





A 

125 



« A » 9 « 

e a « 

© o © o oseeeoeo a • o ® o 

A 

126 

112 

WRITE (6,131) 




A 

127 


10=1 




A 

128 


CALL OBL I 0 (GAMMA, RMl , ABS(THETAF) , BETA?, RM2.P20PI 

f l ? 2 $ 101 

A 

129 


F A LI OBL I Q ( GAMMA, RMl , THFTA I , BETA I ,RM3, P30P1, 1 

,3, 

10) 

A 

130 


CAt L OBL l 0 ( GAMMA, RM3, THFT A 4 , R FT A4 , RM4 , P 40P 3 , 3 

? 4 ? 

TO) 

A 

131 


CAM Ml TRT ( P40P3,P30P1, P40P1, 1 ,4, 10) 




A 

132 

r 

WRITF THFTA AMO BETA ANGIES AND 

MACH 

NUMBER 

A 

133 


WRITE (6,132) 




A 

134 


THFDEG= THFTAF *57 . 5 9 6 




A 

135 
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r> n o o 


IF (THFTAF.LT. 0. ) BFTA2=3.14159-RWTA2 A life 

RETnEG=BETA2*57.?96 A 137 

3=? A 138 

WRITE (6,133) J,THFDFG,BETDEG,THFDEG,BET0EG,RM1,RM2 A 139 

THnFG=THFTA 1*57.296 A 140 

7FTDEG=BPTAI*57.296 A 141 

•1 = 3 A 142 

WRITE (6,133) J , THDFG , 8ETDEG ,THPFG , BETDEG »R ML , RM3 A 143 

THDEG=-THFTA4*57.?96 A 144 

RFTnFG=-8FTA4*5?,296 A 145 

ABSTH=THF0FG A 146 

ABSBT=THIDFG*-BFTOFG a 147 

1 = 4 A 148 

WRITE (6,133) J, THDFG, BFT0EG,ABST.H,ABSBT,RM3,RM4 A 149 

T A 150 

C A 151 

C CALCULATE ABSOLUTE VALUFS FOR POINTS 0 THRU 4 A 152 

f A 153 

r A 154 

WRTTF (6,134) A 155 

WRIT?: (6,135) A 156 

''! SC1 = VISC )(VREF,TREF,T1,S) A 157 

U = SDRT< 32.2*GAMMA*r*ti> A 158 

U 1 = A 1 *P M l A 159 

9 F Y l = R HO 1 *Ul / V I SC 1 A 16 0 

J=! A 161 

WRITE (6,1361 J,Pl,RM0l,Tl,AL,Ul,VlSCi,REYl,RMl A 162 

■J = ? A 163 

CALL ARSVAL ( P20P 1 , P 1 , P 2 , VR E F , TRE F , S , J , 1 0 , RM2 } A 16*, 

J = 3 A 165 

TALL ARSVAL ( P30P l , P 1 , P 3 , VR E F, TRE F , S , J , I 0, R M3 ) A 166 

•' = 4 A 167 

FAIL ARSVAL ( P40P l ,PJ , P4, VREF, TREF , S, J, I0,RM4 ) A 168 

WRITE (6,1371 A 169 

J=t A 170 

WRITE (6,136) J » P Z » RHOZ , TZ A 171 

J = 2 A 172 

CALL I STROP ( GAMMA, RM2,P2,PZ2, P20PZ2, 2 ) A 173 

PZ20Z = P Z7/PZ A 174 

WRITE (6,136) J,PZ2,PHOZ2,TZ2,PZ2nZ A 175 

J = 3 A 176 

CALL I STROP (GAMMA, RM3,P3,PZ3, P30PZ3.3) A 177 

D Z 30Z=PZ3/°Z A 178 

WR I TE (6,136) J,PZ3,RH0Z3,TZ3,PZ30Z A 179 

J=4 A 180 

CALL I STROP (GAMMA, P M 4,P4,PZ4, P40PZ4,4) A 181 

D Z 40Z = P Z4 /P Z A 182 

WRITE (6,136) J , P74, RH0Z4.TZ4, P740Z A 183 

IF (OPTION. FO. CODED GO TO 124 A 184 

C A 185 

A 186 

CONDITION l A 187 

INCREMENT THETA 5 UNTIL PRELECTION AT PT 5 NOT POSSIBLE AT WHICH A 188 

T T M E REFINE THETAS TO FIND MORE PRECISELY WHFN THIS OCCURS A 189 

A 190 

C ... a. .Bo.... ...... ............ ........ .............. ............. 9 A 191 

IF (CKTHS.EQ.O) GO TO 113 A 192 

OTHFT A=THFTA5/57.296 A 193 

THFTA5=DTHFTA A 194 

ISW=I A 195 

GO TO 114 A 196 

113 nTHETA=5. 0/57. 296 A 197 
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o o o n n o o o o o o o o o 


114 


115 

116 


C 

117 


C 


rHFTA5=0THFTA A 198 

T S W = 0 A 199 

THnEG = -THETA5*180. /3. 1416 A 200 

THETAB=THETAF-THFTA5 A 201 

THPOEG= THETAB*180./3. 1416 A 202 

WRITE (6,129) A 203 

IF (RM4.LF.1.) WRITE (6,138) A 204 

IF (RM4.LF.1.) r,0 TO 124 A 205 

WRITE (6,139) A 206 

IF (OPTION. NE .CODE) GO TO 115 A 207 

A 208 

A 209 

AXISYMMETRIC CASF. THE T A 5 , P M 5, P 50P4 ARE INPUT A 210 

A 211 

A 212 

WRITE (6,140) A 213 


RETA5=FIN0BC (RM4, GAMMA, THETA5, l ERROR) 

TF ( (ERROR. GT. 2) GO TO 123 
PRESSURE RATIO AT SURFACE 
P50P4= PR ATC(RM4, GAMMA, THETA 5 > 

THETA- FT HETA( GAMMA, RM4, BETA 5 ) 

1ACH NUMBER A1DNG SHOCK 

RMSO=FINOM( GAMMA, RM4, S INI BET A5 ) , BF TA5 , THE T A ) **2 
GM1H=( GAMMA-1. ) /2 . 

P5P4=PRAT IOIGAMMA, RM4, SIN (BETA 5) ) 

P5SP5=P5QP4/P5P4 
MACH NUMBER AT SURFACE 

R M 5=S0R T ( (P5SP5**(-GM1H)*(1.+GMIH*RMSQ)-1.)/GM1H) 
T50TZ5=1. /(l.+( GAMMA- 1. )*RM5**2/2. ) 

T5 = TZ *T5 0TZ5 
P5=P4*D50P4 

RH05=P5*144. / (32.2*R*T5) 

VI SC 5= VI SC. J(VREF,TREF,T5,S) 
A5=SQRT(32.2*GAMMA*R*T5 ) 

U5=A5*RM5 
PFY5=RH05*U5/ VISC5 
GO TO 117 


TWO— 0 IMENSIONAL CASE. 

CALCULATE ANO WRITE PARAMETER RATIOS FOR 5/4, 5/1 


BFTA5 = FINDB(GAMMA,RM4,THFTA5, 1, I ERROR) 

IF ( I ERROR-3 ) 116,121,121 

8ETDEG=BETA5*iaO./3. 1416 
THSV=THETA5 
WRITE (6,141) 9FT0EG 
I0 = -1 

CALL OPLIQ (GAMMA , R M4 , THET A 5 ,B ET A 5 , RM5 , P50P 4, 4 , 5 , 10) 
CALL MLTRT < P50P4, P40PI, P50P1, U5, 10) 

CALCULATE ABSOLUTF VALUES AT 5 
CALL ABSVAL ( P50P 1 , P 1 , P5 , VR F F, TPFF , S , 5 , - 1 ) 
BETDEG=-3ETA5*57. 296 
RBDFG= ( THFTAF-BETA5 ) *57.296 
WRITE (6,142) THOEG, THBOFG, B FT f)EG , BBDEG 
WRITE (6,143) P50P4 

WRITE (6,144) P5 , RH05 , T5 * 4 5 » U5 , V I SC5 , R EY5 , R M5 


A 214 
A 215 
A 216 
A 217 
A 218 
A 219 
A 220 
A 221 
A 222 
A 223 
A 224 
A 225 
A 226 
A 227 
A 228 
A 229 
A 230 
A 231 
A 232 
A 233 
A 234 
.... A 235 
A 236 
A 237 
A 238 
A 239 
*.«o A 240 
A 241 
A 242 
A 243 
A 244 
A 245 
A 246 
A 247 
A 248 
A 249 
A 250 
A 25 1 
A 252 
A 253 
A 254 
A 255 
. . . . A 256 
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r a 25? 

C CALCIJt ATE AND WRITE STANTON NUMBER, HEAT TRANSFER COF FF IC I ENT ( H ) , A 258 

C HEATING RATF(QRATF), AND SHF A R LAVFR THI CK NE SS ( DEL TA) FOR A 259 

C LAMINAR ANO TURBULENT FLOW. A 260 

C A 261 

C ........ A 262 

C VISCOSITY AT WALL < SLUG /FT- S FC ) A 263 

VWALL=VISCJf VRFF,TRFF,TWALL,S) A 264 

F DENSITY AT WALL (SLUG/FT CIJRF) A 265 

t - , HPW = P5*L44./ (32. 2*R*TWALD A 266 

WRITE (6,145) RHOW » VW At. I A 267 

WRITE (6,146) A 268 

C SHEAR LAYER LFNGTH(FFFT) a 269 

X1.13=XL1?*C0S (BFTA4-THFTA4)-Xl 1 ?*S IN { BET A4-THET A4 ) /T AN ( BE T A 5) A 270 

C SH C AR LAYFR THICKNESS AT WALl(FT) A 271 

DELTA(1)=5.0*SQRT(XL13*VISC4/(RH04*U4) ) A 272 

0FLTA(2)=1.6*XL13/13. A 273 

C STANTON NUMBER IN REGION 5 A 274 

CH=RHOW*U5/( VWALL^SI N( THETA5 ) * A 275 

CHWALL ( 1 ) = . 19/ <CH*OE' TA( 1 ) ) **. 5 A 276 

CHWAlt (2)=.02l/CCH*DFLTA(2) ) ** . 2 A 277 

C RECOVERY TEMPERATURE ( OEG-R ) A 278 

TR ( l)=T5+( TZ-T5)4S0RT(PR) A 279 

T R ( 2)=T5*-(TZ-T5)*( PR**( 1 . / 3 . ) ) A 280 

C HEAT FLOW ( STU/FT2-SEC). A 281 

0R = RH0W*U5 *CP /778 . A 282 

QRATE(1)=0R*(TR(1 ) -T WALL ) *CHW ALL ( l) A 283 

ORATE(2)=QR*(TR(2)-TWAt.L)*CHWALL<2) A 284 

HI =QR*CHWALl ( 1 ) A 285 

M2=QR*CHWALL< 2) A 286 

r R I NO HEAT TRANSFER FCR A Rl.UNT BODY WITH NO IMPINGING SHOCK A 287 

r A 288 

GMl=GAMMA-l. a 289 

GP 1 =G 4MM A+ 1 . A 290 

T Z 5 = T 7 A 291 

C VISCOSITY AT STAGNATION COND IN REGION 5 ( SL UG /FT- SEC ) A 292 

V5S=VISCJ(VR C F,TRRF,T75,S) A 293 

C CONVERSION FACTOR ( ( RTU-SE C 2 ) / ( F T2-L BE ) ) A 294 

A0=(.76/PR**( .6) )/(778.*S0RT(32.2) ) A 295 

C DELTA HFAT BETWEEN TWALL AND T Z5 ( FT-LSF/S LUG ) A 296 

DQ=CP*(TZ5-TWALL ) A 297 

R M 1 SQ= R M 1 * RM 1 A 298 

C CALC STAGNATION PR c S SUP E ' R AT 1 0 ACROSS A NORMAL SHOCK FOR FREE A 299 

C STREAM CONDITIONS A 300 

TY=(GPL*RMlS0)/(GMl*RMlSQ+2. ) A 301 

TX=GPl/( 2.*GAMMA*RM1SQ-GM1) A 302 

P7S=PZ*TY**(GAMMA/GM l ) *TX**( 1. /GM1 ) A 303 

BQS=( (144.*VWALL >/(R*TWAl.m*’M.l> A 304 

COS=( (L44.*V5S>/(R*TZS) )**< .4) A 305 

C STAGNATION VELOCITY GRADIENT A 306 

UGRDTS = UI/R8* SORT (GMl /GAMMA*( 1 . +2 . / ( GM 1*RM1 SO ) ) *( l . - 1 . / ( GAMMA*RM1S A 307 

10) ) ) A 308 

C STAGNATION HEATING-3D(8TU/FT2-SFC) A 309 

9WS30=AQ*8QS*CQS*DQ*S0RT(PZS*UGPDTS) A 310 

C O-PEAK RATIOS A 311 

QR3DL=0RATE( 1 ) /QWS3D A 312 

0R3DT=0RATE(2 1/OWS30 A 313 

C STAGNATION H c AT TRANSFER COEFf BTUZSQFT-SEC-R ) A 314 

HS3=QW$30/(TZ5-TWALL) A 315 

r M-PFAK PAT ins A 316 

Ml HS3=H1/HS3 A 317 

H2HS3=H2/HS3 A 318 
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C PFAK PRESSURE RATIO A 319 

P5 OPZS= P5 / P ZS A 320 

WRITE (6,147) P50PZS A 321 

WRITE (6,143) XL 1 3 A 322 

WRITP (6,149) QWS3D , HS3 A 323 

WRITE (6,150) A 324 

WRITE (6,151) CHWALL(l) , QRAT F (1) , OEIT A ( 1) , QR3 OL, H1HS3 , CHW ALU 2), OR A 325 

IATF(2),DELTA( 2 ) , QR 3DT ,H 2HS3 A 326 

C ARF WE ITERATINC, ON THET A6 TO FINO PT AT WHICH CONDITION 1 OCCURS A 327 

C IF NOT, CONTINUE INCREMENTING THE T A 5 . A 323 

IF (CKTH5.NE.0. ) THET A5=THETA5*57 .296 A 329 

TF (ISW) 119,119, 118 A 330 

118 GO TO 124 A 331 

119 THETA5=TH c TA5-*-D THETA A 332 

GO TO 114 A 333 

C ••«t*«««**f«*»*«l«9*«*f**«(»,«***4,B,B***Be**<,**e,,«**,,**BB«*t,* A 334 

C A 335 

C A 336 

C ITERATE ON THETA5 A 337 

C A 338 

C A 339 

120 RETA5=EI NOBIG AMMA, RM4,TH FT A5,l, TERROR) A 340 

IF ( I ERROR .GE .3 ) GO TO 121 A 341 

C INCREASE THETA5 A 342 

THSV=THFTAP a 343 

IE (DTHETA.LT.TOL) GO TO 122 A 344 

DTHFTA=DTHETA/2 . A 345 

T HFTA5=THETA5+9THETA A 346 

!ERR08=-1 A 347 

GO TO 120 A 348 

C DECREASF TH C T A5 A 349 

121 IF (OTHFTA.LT .TOL ) GO TO 122 A 350 

OTHET A = OTH FT A/2. a 351 

THFT/\5=THETA5-0TH C TA ' A 352 

f ERROR = -l A 353 

GO to 120 A 354 

12? t hfta5=THSV A 355 

I S W = 1 A 356 

GO TO 114 A 357 

C. FIND LARGEST THETAS FOP AXIS CASE A 358 

123 PMSQ=PM4*PM4 A 359 

rH^TA5 = ASIN(S0RT( ( l . -1 . / RMS 0 ) / < GAMM A* ( 1 + 1 . /PM SQ ) ) >) A 360 

1HETA5=THETA5-.001 A 361 

T SW=1 A 362 

GO TO 114 A 363 

124 CONTINUE A 364 

GO TO 101 A 365 

r A 367 

125 FORMAT ( IH l , 2 5X , 7H* * * , / / 1 X , 57HTH I S PROGRAM PERFORMS A TYPE 3 S A 368 

1H0CK t NTEREERFNCE PATTERN, //26X,7H* * */,llH RUN NUMBER , F 7. 2) A 369 

126 r ORMAT ( 30H XUSHOCK n I SPL AC EMFNT L ENGTH ) , F 1 6 . 6 , 4H FT) A 370 

127 FORMAT (I2H NOS F R AO IUS , 20X , FI 5 . 5 , 4H FT) A 371 

128 FORMAT ( IX, ADOPTION, 35X, A4 ) A 372 

129 g or mat UHl) A 373 

130 tormat ( //IX, 19HINPUT VARIABLES ARF/8H THET A I = , FQ .4, 4H DEG, 5X , 6HBE A 374 

l T At = ,P9.4, 4H OF I / ) A 375 

131 FORMAT ( //IX, 10HRAT I OS ARF/) A 376 

132 FORMAT { / / 7 H PFGION,SX, 14HRFLATI V P ANGLF, 10X, I4HABS0LUTF ANGLE, /9X A 377 

1 ,5HT-e=TA, RX,4HBFT A, 7X, FHTHFTA, 8 X , 4 HBF T A , 5 X , 13HUPSTRE AM MACH,2X, 10H A 378 

2I0CAL MACH) A 379 

133 format ( IX. Tl ,4F12.4, 2F15.4) A 380 
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134 


135 


1 36 
137 


138 

139 
1 A 0 


141 

142 


143 

144 


145 

146 

147 

148 

149 

150 

151 


c 


FORMAT ( / / 7H REGION, 10X, LHP » 1?X» 3HRHO, UX, 1HT , ux ,IHA,11X, IHU, 13X, A 367 
129MU, 3X, L1H3FYN0LDS N0,9H MACH NO) A 368 

FORMAT ( 1 4X * 3HP S I , 4X , 1 OH SLUG /C U FT , 5X , 7HR ANKI NE ,6X ,6HFT/SEC,6X ,6HF A 369 
1 r/SFC,4X,11 HS LUG/FT-SFC, 11X, 4HI/FT ) A 370 

r 0 R M A T ( IX, I5,F12.4,F15.5,3F12.4,2E15.5,F8.4) A 371 

FORMAT ( /IX.25HSTAGNATIOH COMOTTIONS ARF/7H R EG I ON, 6X , 5HP STAG , L2X, A 386 
l’HRH0,7X,5HT$TAG,4X»12HPSTAG/PSTAGl,/, 14X , 4HPS I A , 4X, 11HSLUGS/CU FT A 387 
2 , 5 X , 7HRANK IMF ) A 388 

FORMAT ( 5 1H REGION 5 OOFS NOT EXIST SINCE REGION 4 IS SUBSONIC) A 389 

FORMAT (/16X»45H *4/) A 390 

FORMAT ( / / 46H FOR A 7-D I MFNS I FINAL CASE THE FOLLOWING VALUES, 28H RE A 391 
1 F F R TO SURFACE CONDITIONS) A 392 

FORMAT ( IX , 7HBETA5 =,F10.3) A 393 

FORMAT ( 17H THFTA5 P FL AT I VE= , F 1C . 3 , 10H , ABSO LUTE = , F 10 . 3/ 1 6H BETAS R A 394 
ULATIVE=,F10.3, 10H, ABSOLUTE=,F 10.3) A 395 

FORMAT <7H R50P4=,F10.4, /) A 396 

FORMAT ( IX,30HA3SOLUTF VALUES AT CONDITION 5/ IX , 2HP= , F9. 4 , 2 X, 4HRH0 A 397 
1=,F11.4,2X,2HT=,F9.4,2X, ?HA= , F9 . 4 , 2X , 2HU= , F9 . 4, 2X , 3HMU= , E 1 1 . 4 , 2X A 398 
2, 12HR FYNOLOS N0= , c 1 1 . 4 , 2X, 8HMA CH N0=,F8.4) A 399 

FORMAT I14H RHO WALL = ,Ell.4/15H VISC WALL = ,E11.4) A 400 

FORMAT ( 1H ) A 401 

FORMAT ( /? 3 H PEAK PRESSURE RATIO ,F{?.4) A 402 

FORMAT ( 2 5H XI 131 SHEAR I AYER I ENGTH) , 7X , F 1 5 . 5 , 4H FT) A 403 

format (ARH STAG HEAT TNG- 30 NO INTERFERENCE (BTU/SQ FT- SEC ) , E 1 5. 5 , A 404 
1 20H H(BTU/SQ-FT-SFC-R) , FI 5 . 5, / ) A 405 

FORMAT ( / / 1 7X , 26HST ANTON 0 ( R TU/ SO FT-SEC ) , 6X , 9H0ELT A ( FT ) , 6X , 9HQR A 406 
1 A T I 0-3D , 6X , 9HHR AT 1 0-30 , ) A 407 

TORMAT { l X , 7HLAMINAR, ?F 1 8 . 5 , 3E 1 5 . 5 /10H TURBUL ENT , E 16. 5, E 1 8'. 5, 3E1 5 . A 408 
19) A 409 

END a 410- 

B 1 


Program Flow Chart - PRATC 


Function PRATC computes the pressure ratio across a conical shock. The flow 
diagram is as follows: 
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Program Listing - PRATC 


FUNCTION PRATC ( RM , GAMMA , THE T A I D 2 

CALCULATE PRESSURE R AT IOS( P2S/PI S FCP AX I S Y^mETR I C AL CASE ALONG 0 3 

TFE SHEAR .LAYER 0 * 

&MSQ = RM*.R M D 5 

3M6=RM**6 c ^ 

G2=1.-1./RMSQ 0 7 

G3=GA M MA*( l.+l./FNSQ) D e 

FL = (GAMMA + 7. 1/ A. -(GAMMA- 1. ) ** 2/1 6 . + t . /PM C ♦ ( RM SC- 1 . ) /( R M**4* S I N (THE D 9 

1 T A ) > D 10 

F2=.5*(GA M MA + 7. ) /(GAM^A-s- 1. )*G£*( 1. + l./RMe ) C LI 

F3=.5*(GAMMA+7.J /(GAMMAM. > >»G3^ t l. + l./fi«t ) 0 12 

SINSC= SIN(THETA) **2 0 13 

CP2S=.5*(F2+F1*SINSC-SCRT( (F2-Fl*S]NSQ»**2-( ( F3-F 1)*S INSQ >**2) ) D LA 

C PRESSURE ON SHEAR LAYER - P2S/PL D 15 

FPATC = CP2S*RMSG*CAMM A/2. +1 . D l 6 

RETURN 0 17 

END D l8_ 


Program Flow Chart — FINDBC 

Function FINDBC calculates the shock angle when a conical shock is assumed. The 
flow diagram is as follows:' 
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Program Listing - FINDBC 

FUNCTION FINDBC ( PM , G A MM A , THET A, I EP POP ) 

CALCULATE BETA USING A CCNICAL RELATIONSHIP 

PR INT = I ERROR 

I E R P C R = C 

FMSQ=RN*RM 

G 1= ( GA pma-4- L . Ml. 

G2= 1 1 o/PMSQ 
G3=GAMMA*( l.+l o/RMSQ) 

CHECK FOR STANC-CFF 

IF (THETA. GT .ASIMSQRT IG2/G3) ) ) GC TO 1 

SINSQ = S INI THETA) **2 

C1=G2+G1*SINSQ 

C2=(G2-Gl*SINSC)*x<2 

C3= ( (G3-G1)’ !< SINSC)* ! *2 

F I NDBC = A S I N ( SORT ( 1 . / P M** 2* . 5 * ( C 1-S CRT ( C2- C3 ) ) ) ) 

RETURN 

IERRCR=3 

NO SOLUTION POSSIBLE 
THDEG = THETA*57 .296 

IF (PRINT. GE.OJ LPITE (6,2) R V ,G AH N A , TFDE G 

»ETURN 

FORMAT (38HNO SOLLTICN FCUND FOR RN, GAMMA, THETA , 3F LC. 4) 

END 


C 2 
C 3 
C A 
C 5 
C 6 
C 7 
C 8 
C 9 
C 10 
C 11 
C 12 
C 13 
C 1 A 
C 15 
C 16 
C 17 
C 18 
C 19 
C 20 
C 21 
C 22 
C 23 
C 2 A 
C 2 5- 
D l 
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USAGE 


Program SHOCK for a type HI interference pattern uses the standard FORTRAN 
NAMELIST input with $DATAIN as the NAMELIST name. The input includes the flow 
conditions, gas properties, impinging flow deflection or shock angle, shock displacement 
length, nose radius, and shear -layer angle relative to the local body slope. (See fig. 5.) 
The program can also increase the shock generator angle 0^ incrementally and the 
shear-layer angle 6 5 (if 6 5 is not specified) up to the maximum value for a type III 
interference. The ratio of shock displacement length to nose radius may also be used as 
an input instead of the individual lengths. 

A description of the input and output variables and a sample case are presented. 

Input Description 

The $DATAIN input for type III is as follows: 

RUN run number for identification 

RM1 Moq, free -stream Mach number 

GAMMA Cpy/c v , ratio of specific heats 

THETAI 0j, shock generator angle, deg; or /3j, impinging -shock angle, deg 
TINCR increment for 6 ^ (Default = 5°) 

NTIMES number of times to increment 0j 

IPT initial point; 0 for stagnation conditions, 1 for free -stream static conditions 

T temperature at IPT, °R 

P pressure at IPT, psia 

AMW molecular weight (used to compute gas constant) 

TREF reference temperature for computing viscosity, °R 
VREF reference viscosity for computing viscosity, slugs/ft-sec 
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S Sutherland's constant in viscosity equation 

RB nose radius, ft 

TWALL temperature at wall, °R 

XL l SH> sh o ck displacement length, ft 

CP Cp, specific heat at constant pressure, ft-lbf/slug-°R 

PR Np r , Prandtl number 

OPTION AXIS for conical shock at shear -layer attachment; 2-D for plane shock at 
shear-layer attachment 

TOL acceptable tolerance for equal pressures (0.001) 

ANGLE THET if 6>i input; BETA if /3^ input 

XLRB ratio of shock displacement length to nose radius (0 if XL and RB input) 

THETA5 0 5 , shear -layer angle relative to local body slope, deg (optional, input as 
negative angle) 

CKTH5 0 if not input; 1 if input 

Output Description 

The output from this program consists of printing only. A heading and pertinent 
input for identification are printed before the results of the calculations. 

RUN NUMBER run number for identification 

Ml Mm, Mach number in free stream 

GAMMA(CP/CV) ratio of specific heats 

TEMP AT POINT ”IPT" input as T, °R 

PRES AT POINT "IPT" input as P, psia 
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MOLECULAR WEIGHT 


molecular weight (used to compute gas constant) 


REFERENCE TEMP 
REFERENCE VISCOSITY 
S(SUTHERLAND NUMBER) 
TEMP AT WALL 
CP 

PRANDTL NUMBER 

XL(SHOCK DISPLACEMENT 

NOSE RADIUS 

OPTION 

THETAI 

BETAI 

P2/P1 , etc. 

RH02/1, etc. 

T2/T1, etc. 

A2/A1, etc. 

U2/U1, etc. 

RELATIVE ANGLE 
THETA 
BETA 


reference temperature for computing viscosity, °R 
reference viscosity for computing viscosity, slugs/ft-sec 
Sutherland's constant in viscosity equation 


T w , °R 

Cp, specific heat at constant pressure, ft-lbf/slug-°R 
Np r , Prandtl number 
LENGTH) length, ft 


nose radius, ft 

type of calculation chosen (AXIS or 2-D) 
shock generator angle, deg 
impinging shock angle, deg 
P 2 /Pi, etc., pressure ratios for regions listed 
P 2 /P 1 , etc., density ratios for regions listed 
T 2 /T 1 , etc., temperature ratios for regions listed 
ag^/a^, etc., ratios of speeds of sound in regions listed 
U 2/ U 1 J etc *’ velocit y ratios for regions listed 


flow angle relative to flow in upstream region, deg 
shock angle relative to flow in upstream region, deg 
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ABSOLUTE ANGLE 


THETA 

flow angle relative to free -stream flow, deg 

BETA 

shock angle relative to free -stream flow, deg 

UPSTREAM MACH 

Mach number in upstream region 

LOCAL MACH 

local Mach number 

REGION 

region in shock pattern 

P 

static pressure in region, psia 

RHO 

static density in region, s lugs/ft ^ 

T 

static temperature in region, °R 

A 

speed of sound in region, ft/sec 

U 

velocity in region, ft/sec 

MU 

static viscosity in region, slugs/ft-sec 

REYNOLDS NO 

Reynolds number per foot in region 

MACH NO 

Mach number in region 

The following stagnation conditions are then listed: 

PSTAG 

total pressure in region, psia 

RHO 

total density in region, slugs/ft ^ 

TSTAG 

total temperature in region, °R 

P STAG/P STAG 1 

ratio of total pressure in region to free -stream total 

pressure 
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The pressure ratios and heat transfer for laminar and turbulent flow are listed as 
a function of conditions in region 5: 


THETA5 

RELATIVE 

ABSOLUTE 

BETA5 

RELATIVE 

ABSOLUTE 

PEAK PRESSURE RATIO 


flow angle in region 5 relative to upstream flow, deg 
flow angle in region 5 relative to free -stream flow, deg 

shock angle in region 5 relative to upstream flow, deg 

shock angle in region 5 relative to free -stream flow, deg 

ratio of peak pressure pg to stagnation pressure on 
sphere 


XL 1 3 (SHE AR -LAYER LENGTH) 


length of shear layer, ft 


STAG HEATING 3D NO INTERFERENCE stagnation -point heat -transfer rate on sphere, 

Btu/ft^-sec 


H 


stagnation-point heat -transfer coefficient on sphere, 
Btu/ft^-sec-°R 


STANTON 

Q 

DELTA 

QRATIO-3D 

HRATIO-3D 


peak Stanton number 

peak heat -transfer rate, Btu/ft^-sec 

shear-layer thickness at wall, ft 

Qpk/Qgtag) ratio of peak heat -transfer rate to stagnation- 
point value 

Hpk/Hgtagj ratio of peak heat -transfer coefficient to 
stagnation-point value 
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RHG WALL 


density based on T w 


VISC WALL 


viscosity based on T w 
Sample Case - Input 


IDATAIN 
PM 1 
GAMMA 
IHETAI 
1 1 NCR 
NT IHES 
IPX 
T 
P 

ANW 
TP EF 
VREF 
RE 
S 

TWALL 

XL 

CF 

PR 

OPTION 

TOL 

ANGLE 

XLR0 

THETAS 

CKTH5 

RUN 

t END 


0 o 6E + C 1 1 
0 .14E+C1 , 

0.5E+01, 

0.5E+01, 

L, 

0 , 

0.9E+03, 

0 » 4E + 03 » 

0 . 2897E+02 • 

0 . 53E + 03 t 
0.38C1E-C6, 

0.5E+00, 

0.1986E+03, 

0 . 55E+C3 » 

0 • 2E +G0 » 

0.60C6E+04, 

0.7 2E+00 » 

0.L4C9522X 760901-267 > 
0.1E-02, 

0. 69 404725 765 109 E + 93 , 

0 . 0 , 

C.2E+02, 

0.1E+01, 

0. IE + 01. 
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05 

DO 


❖ # * 


Sample Case - Output 


THIS PRC GRAM PERFORMS A TYPE 3 SHOCK INTERFERENCE PATTERN 

* * t 

RUN NUMBER l.CG 
INPUT VARIABUES ARE 
Ml 

GAMMA ICP/CV) 

TEMP AT POINT 0 
PRES AT POINT 0 
PC UECUIU AR HEIGHT 
REFERENCE TEMP 
REFERENCE VISCOSITY 
S ( SUTHERLAND NUMBER) 

TEMP AT HAUU 
CP 

PRANDU NUMBER 

XUiSFCCK DISPUACEMENT UENGTF) 

NCSE RADIUS 
CFTICN 


INPUT VAR I ABU E S ARE 

TFETAI= 5.000T DEG BE TA 1 = 13.1597 DEG 


RATIOS APE 


P2/Pi= 40.7108 

RH02/1= 

5.25C7 

T2/T1= 

7.7534 

A2/A1= 

2.7845 

U2/U1= 

.2491 

F3/P 1= 2.0103 

RHT3/1= 

1.6306 

T3/T 1 = 

1.2328 

A3/A1= 

1.1103 

U3/U 1= 

.9837 

F 4/P 3= 20.2512 

RHC4/3= 

4.6667 

T4/T3= 

4.3355 

A4/A3 = 

2.0831 

U4/U3= 

.6396 

F4/P 1= 4C.71P4 

PHC4/ 1= 

7.6C96 

T4/T 1= 

5.3499 

A4/A1= 

2.3130 

U4/U 1= 

.6292 


REGICN RELATIVE AMGLE 

THETA BETA 

ABSOUUTE ANGUE 
THETA BETA 

UPSTREAM MACH 

LOCAU MACH 

2 -31.6177 

99.4C93 

-31.6177 

99.4093 

6 .C COO 

.5367 

3 5.0000 

13.1558 

5.0000 

13.1558 

6.CC00 

5.3157 

4 -36.6177 

-51.5C52 

-31.6177 

-46.9052 

5 .3 157 

1.6321 


6.CC0 
I • 40000C 

9CC. OOOOCO RANKINE 
400. COCOCO PSI 
28.5 7CCCC 

530.CC0CC0 RANKINE 
3.8010COE-C7 SUU G/ ( FT-SEC I 
158. 6CC 

550. CCC RANKINE 
60C6.QCC FT-LBF/I SUUG— RANK INE i 
. 7200CC 
. 2CCCCC FT 
.50000 FT 
AXIS 


REGICN P RHC 

PSI S UUG/CU FT 

1 .2533 1 . 93645E-04 

2 10.3139 1.01677E-03 

3 .5053 3 . 1576 0E-O4 

4 10.3138 1.47356E-03 

STAGNATION CONDITIONS ARE 
REGICN PSTAG RHC 

PS IA SUUGS/CU FT 

1 400.0000 3.72856E-02 

2 12.5472 1.16958E-03 

3 386.5123 3.60280E-02 

45.5812 4.28605E-03 


T 

A 

U 

ANK INE 

FT/SEC 

FT/SEC 

109.7561 

513.5675 

3081.4074 

fi 50 .5 €2 5 

1430. 0257 

767.4393 

135.3111 

570.2302 

3031.1919 

5E7.18C4 

1167.8711 

1538.7491 


TSTAG 

P STAG/P STAG I 

RANKINE 


9C0 .CCOO 


9C0 .0000 

.0314 

9co.ccee 

.9663 

9C0.0C88 

.1150 


MU REYNOUDS NO MACH NO 
SUUG/FT— SEC 1/FT 

8.46377E-C8 7.05004E*C6 6.0000 
5.36831E— 07 1.45355E+C6 .5367 
1 . 0699CE— 0 7 8.94597E+C6 5.3157 
4.10988E-07 6.95122E+06 1.6321 
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******<■*«»*»*»** 


FCR A 3— D I MEN SI CNAL CASE THE FOLLOWING VALUES REFER TC SURFACE CONDITIONS 
TFETA5 PEL AT I VE= -20 .000, ABSOLUTE*. -51.617 
BETAS RELATIVE= - 46 . 1 1 9, AB SCLUTE= -77.737 

F50P6= 1.6763 

AESCLLTE VALUES AT CONOITION 5 

P = 17.2893 RHC- 2.1550E-03 T= 673.0662 A=1271.77S4 U=1651.2774 MU= 4.546BE-07 REYNOLDS N0*= 7.8263E+06 MACh NC=* 

RFC WALL = 2.6372E-03 

VISE WALL = 3.9108E— C7 


PEAK PRESSURE RATIO 1.4577 

XL 13 1 SHEAR LAYER LENGTH) .16221 FT 

STAG FEATING— 3D NC INTERFERENCE (BTU/SQ FT-SEC) 3.71657E+CC HI BTL/ SQ-FT-SEC-R) 1.06130E-02 



STANTON 

QIBTU/SQ FT-SEC) 

CELTAIFT 1 

QRATI0-3D 

FRAT 10— 3D 

LAMINAF 

1.24518E-03 

1.32119E+01 

7 • 15166E-04 

3.55679E+00 

3.94415E+0C 

TURBULENT 

1. ,682 76E-03 

1.62729E+01 

1.75029E-02 

4. 38C84E+00 

4.69669E+00 


CT> 

03 


1.293*. 



PART IV - TYPE IV INTERFERENCE 


PROBLEM DISCUSSION 

Type IV interference can occur when the weak impinging shock intersects a strong 
bow shock ahead of a subsonic flow region, as shown in figure 1(d). In general, on a blunt 
body this shock intersection is located between the lower sonic point and just above the 
body axis, as shown in figure 2. The impinging shock causes a displacement of the bow 
shock and the formation of a supersonic jet that is embedded in the subsonic region. (See 
figs. 1(d) and 6 .) A jet bow shock is produced when the jet impinges on the surface, 
creating a small region with high stagnation heating. 

The flow model used in this discussion consists of a two-dimensional impinging 
shock intersecting the bow shock of a sphere in the vertical plane of symmetry. A sketch 
of the shock and jet pattern is shown in figure 7. The geometry of this complex flow pat- 
tern is calculated by using the following methods. The solution of the triple shock at 
point Jj (flow conditions in regions 2,3, and 4 and the shear -layer deflection angle) is 
obtained in the same manner discussed for type III in part III. As for type III, the free- 
stream flow conditions in region 1 and the angle Q ^ or ^ are specified. The continua- 
tion of the bow shock between regions 3 and 5 and the shock between regions 4 and 6 are 
determined from the triple -point solution at point J 2 . It is assumed that at point J 2 a 
shear layer (jet boundary) exists between regions 5 and 6 (Pg = Pg). The flow up through 
region 6 is supersonic with the exception that the flow in regions 2 and 5 is subsonic. 

The location of point J 3 is determined from the shear-layer and shock angles sur- 
rounding region 4 and the shock displacement length Lgu (Jl - J 2 ), which must be 
obtained experimentally or by some approximate method. The pressure differential 
between regions 5 and 2 causes the jet to turn upward (P 5 > Pg)- Since the flow in region 7 
must turn upward and the pressure p^ must equal P 2 (shear layer between regions 7 
and 2), a Prandtl -Meyer expansion fan centered at point Jg occurs between regions 6 
and 7. The line between Jg and J 4 used to describe the jet geometry is constructed so 
that it bisects the expansion fan. Details of the intersection of the expansion fan with 
the reflected compression waves at point J 4 on the lower jet boundary are neglected 
because of the small distances and turning angles involved. Instead, a single compression 
wave centered at J 4 is used to turn the flow upward further and increase the pressure 
from region 7 to region 8. The pressure Pg must equal pg since a shear layer exists 
between regions 8 and 5. Therefore, the conditions in regions 6 and 8 and all subsequent 
even-numbered regions in the jet are the same. Likewise, the conditions in all odd- 
numbered regions are the same. Also, the incremental increase in the flow deflection 
angle between adjacent regions is constant (i.e., Qq - $7 = 0? - 0g, etc.). These approx- 
imations are justified since it was assumed that the mixing between the jet flow and the 
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slowly moving flow in regions 2 and 5 is negligible. On the basis of this reasoning, an 
expansion fan centered at J 5 and intersecting the lower jet boundary at J 6 completes the 
jet geometry through region 8 . (See ref. 7.) Peak heating at jet impingement is anal- 
ogous to that on a blunt body submerged in a supersonic flow field of width w. In order 
to calculate the heating, the location of the jet bow shock in the jet and the resulting jet 
stagnation velocity gradient at the wall must be determined. The location of the jet bow 
shock within the jet depends on the standoff distance of the complete shock configuration. 
Results obtained in reference 2 for M*, = 6 to 20 indicate that the nominal location of 
the jet bow shock is in either region 7 or region 8 . Therefore, the jet stagnation heating 
is calculated by assuming that the jet bow shock lies near the center of either region 7 
or region 8 . 

A flow model of the impingement of a supersonic jet on a plane surface is shown 
in figure 8 . The flow conditions upstream of the jet bow shock are known from the pre- 
vious analysis once the location of the jet bow shock is specified. The inclination of the 
jet ck! j is assumed to be normal to the wall on the basis of measurements made in ref- 
erence 2. The jet width w is the perpendicular distance from the jet boundary to the 
opposite junction for a specified region, as shown in figure 7. The jet bow shock is 
assumed to be a circular arc of radius R c . At the wall the sonic line must be normal 
to the surface, and at the shock the jet -boundary streamline lies between the sonic line 
and the constant -pressure boundary, as shown in figure 8 . It was shown in references 14 
and 15 that this orientation of the sonic line is possible for Mj < 2.8 and y = 1.4. 

The velocity gradient along the wall in the jet stagnation region is calculated by 
using equation ( 6 ), where the Mach number and velocity are the values in the jet ahead 
of the bow shock for a specified region and the "jet body" radius R^ is computed in 
the following manner: The data from references 1 and 2 indicate that the ratio of the 
standoff distance of the jet bow shock to the jet width Sjsfw is approximately 0.45 for 
jet Mach numbers from 1.2 to 2.5 and y = 1.4. The shock standoff distance is deter- 
mined by multiplying the ratio by the calculated jet width for a specified region. The 
radius of the jet body, which in this case is assumed to be a sphere, is calculated by 
using the correlation shown in figure 17(a) of reference 16 for fi^g/R^j as a function 
of the inverse of the normal-shock density ratio for a specified jet region and this value 
of 5jg. Therefore, the velocity gradient at the jet stagnation point is computed once the 
necessary quantities are known for the given region that includes the jet bow shock. 

Another approach for calculating the velocity gradient at the jet stagnation point 
utilizes the Belotserkovskii strip integral method (refs. 17 and 18 ). It has been shown 
in reference 14 that this approach does not work for the low supersonic jet Mach num- 
bers encountered in the present study (Mj < 2.5). Therefore, empirical methods, such 
as the present relation between 6 j g and w, must be used to obtain the velocity gradient. 
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The heat transfer at the jet stagnation point for a given region (7 or 8) is calculated 
by using equation (5) of pai’t III and the computed flow conditions and velocity gradient for 
that jet region. Equation (5) and the velocity -gradient equation (6) are also used to calcu- 
late the reference stagnation heating on a sphere by use of the physical body radius. 


A simple expression for Qpk/Qstag derived reference 1 is useful for predicting 
peak heating levels. This method is based on the same analogy as the present method but 
assumes a two-dimensional jet body at the impingement location. The expression from 
reference 1 is 


Qpk 

^stag 


1.03 


■ pk 


,0.5 


stagy 


(7) 


For the derivation of this expression, a wall to total temperature ratio of 0.5 and a 
Prandtl number of 0.7 were assumed. 


PROGRAM DESCRIPTION 

The main program reads the input, calls the various subprograms, and computes the 
heat transfer. TYP4 calculates the flow deflection angle of the shear layer. FTHETA is 
called to compute the flow deflection angle, and FINDB is called to compute the shock 
angles in each region. The subprograms OBLIQ, FINDM, PRATIO, MLTRT, ABSVAL, 
and ISTROP compute flow variables and ratios of the flow variables. PINPUT prints the 
input variables. The flow charts and listings of these subprograms are presented in 
part VII. The main program for type IV interference calls JET to calculate the layout of 
the jet regions. JET calls HEAT to compute the jet stagnation and the reference heat- 
transfer values. The flow diagrams and listings for these two subprograms are presented 
after the main program listing. The flow diagram and listing for the main program follow. 

Program Flow Chart - Main 
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Program Listing - Main 


C 

c. 

C 

c 

C 


c 


c 

c 

c 

c 

c 

101 


102 

103 


p F IGF AM SHOCK! INPUT, OUT PUT » TAP E 5= INPUT t TAPE t = OUTPUT ) A l 

A 2 

P!JP POSE A 3 

THIS op PGP AM PEFFORMS A TYPE 4 SHOCK INTERF EP ENCt PATTERN WITH A 4 

N0-M4L IMPINGEMENT A 5 

A 6 

COMMON PZ, RHOZ, TZ, P 10PZ , RHOIOZ, T10TZ, A 7 

1 ° Z2 * KH0Z2, TZ2 » P20PZ2, RH02Z2, T2CTZ2, A 8 

2 P Z3 * RHOZ 3» TZ3 * P30PZ3, PH03Z3, T3CTZ3 , A 9 

3 ° Z4, RH3Z4, TZ4, P40PZ4, RH04Z4, T4CTZ4, A 10 

4 PZ5, RHOZ 5, TZ5, P50PZ5, P.H05Z5, T5CTZ5, A 11 

5 P Z6 » RH0Z6, Tit, P6QPZ6, RHOfeZfc, T6CTZ6, A 12 

6 n 20Pl, RHQ20 1 * T20T1, A20A1, U2CUI, A 13 

7 ° 30P 1 , RH03C1, T30T1, A30A1, U30U1, A 14 

8 P40P 3 » RH04C3, T40T3, A40A3 , l'40U3, A 15 

9 P40P1. RH04C1» T40T1, A40AL, U40UI* A 16 

t P50P3, RH05C3, T50T3, A50A3, U50U3, A 17 

$ P60P4, RH0604, T60T4, A60A4 , U60U4, A 18 

S P5DP1, PH0501, T50T1, A50AI , U50U1* A 19 

$ P60P1, RH0601, T60T1, A60A1, L60U1 A 20 

COMMON Pl» PHOl, Tl, Al, Ul, VISCl, REY1, A 21 

1 P2* RH02, T 2, A2, U2, VI SC 2 , REY2, A 22 

2 P3t RH03 * T 3 » A3, U3, VISC3, RFY3, A 23 

3 P4 » RH34, T 4 , A4, U4, VISC4, PEY4, A 24 

4 p 5 , RH05, T 5 , A5, U5, VISC5, REY5, A 25 

5 P6, P.H06, T 6 , A 6 , U6» VI SC 6 , PEY6 A 26 

DIMENSION VAR 1(17), VARD(17,1) A 27 

DIMENSION p A T ( 3 0 ) A 28 

EQUIVALENCE (RATI 1), PI) A 29 

DIMENSION VALU 1 ( 7 ) , VALUZ(7), RATI0(7), VALUJ(7) A 30 

DIMENSION DELT A ( 2 I , CHWALL12), TRI2), QRATEC2) A 31 

SET DEFAULTS FOR INPUT VARIABLES A 32 

DATA GAMMA/1. 4/, S V I NC/ 5 .0/ , NT IME S/1 / , I PT/O/ , AMW / 28. 9 7/ A 33 

DATA THSVI/O./.BTSVI/O. / A 34 

DATA TREF/530.00/,VREF/ .3 80 IE-6 / ,RB / 1 . C/ , S / 198 . 6/ , TW ALL / 530. / A 35 

DATA TOL/ 0.001/ A 36 

DATA XL/1.0/, CP/6006. /.PP/.70/ A 37 

DATA BETA/4H8ET A/ A 38 

DATA ANGLE/4HTHET/, TOL/ .001/ A 39 

DATA RUN/1./ A 40 

DATA XLRB/O.O/ A 41 

NAMELIST /DATAIN/ R Ml , G AMMA , THET AI , T l NCR , NT I MES , I PT , T , P , AMW, TREF , V A 42 

1REF,RB,S,TWALL,XL,CP,PR , TOL, IPRINT.XLRB, PUN, ANGLE A 43 

....................... .« . s a. ................ ............... ...... A 44 

A 45 

INPUT DATA A 46 

A 47 

Q „ ... .....as. a. ...... .. ... ...... ............ ....... A 48 


T I N CP = S V I NC 
THETAI=THSVI 
BET AI=BTSVI 
READ (5, DATAIN) 

IF (ENDFILE 5) 102, 103 
STOP 

CONTINUE 

WRITE (6, DATAIN) 

WRITE ( 6, life) RUN 
THSVI=THf TAI 

8TSV I = BET A f 


A 49 
A 50 
A 51 
A 52 
A 53 
A 54 
A 55 
A 56 
A 57 
A 58 
A 59 
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104 

105 

C 

C 


106 


107 


1C8 


C 


109 


C 

C 

c 

c 

c 


110 

c 

c 

c 

c 

c 

111 

c 

c 

c 

c 

c 


c 


S VI NC=T I NCR A 60 

IF (XLPB.NE.0.0) GO TO 104 A 61 

XLRB=XL/RB A 62 

GO TO 105 A 63 

XL=XLRB*RB A 64 

CONTINUE A 65 

XL12=XL A 66 

GAS CONST ANT (FT-LBF/LBM-R) A 67 

R = 1 544 .3/ A M W A 68 

DENSITY { SLUG/ (CU FT» A 69 

»H0=P*144./( 32.2*R*T) A 70 

C At L PINPUT (RMl, GAMMA, IPT, T, P, AMW, TREF, VREF ,XL , S, TWALL ,CP, PR ) A 71 

WRITE (6,117) XL12 ' A 72 

WRITE (6,118) RS A 73 

THI DcG=THETA I A 74 

THETAl=THETAI/57.296 A 75 

INP B=0 A 76 

T I NCR =T1 NCR/ 57. 29 6 A 77 

IF ( I PT ) 106,106, 107 A 78 

TZ=T A 79 

R HO Z=RHO A 80 

PZ=P A 81 

GO TO 108 A 82 

T 1- T A 83 

R HO 1=RH0 A 84 

P1=P A 85 

CONTINUE A 86 

CALL ISTROP (GAMMA, RM1, PI, PZ,P10PZ, IPT) A 87 

DO 115 1 = 1 »NTI MES A 88 

ISW=0 A 89 

IF (ANGLE. ME. BETA) GC TO 109 A 90 

BETAI WAS INPUT INSTEAD OF THETAI A 91 

BETA I=THET AI A 92 

I NPB=1 A 93 

T HE TAI=FTHETA( GAMMA ,RM1 , BETAI ) A 94 

THIDEG=THETAI*57.296 A 95 

WRITF (6,119) THIDEG A 96 

A 97 

A 98 

CALCULATE AND WRITE PARAMETER RATIOS FOR 3/1 A 99 

A 100 

A 101 

BETAI =F IN D8( GAMMA »RM1»THETA 1,1, I ERR OR) A 102 

IF (IEFRnp-2) 111,111,110 A 103 

GO TO (101,101,101,101), IERROR v A 104 

ERRORS IN FINDING BETA A 105 

IERROR = 1 ONE SOLUTION WAS FOUND, CONTINUE A 106 

2 SOLUTION DID NOT CONVERGE, USE LAST B COMPUTED A 107 

3 NO SOLUTION WAS FOUND, START NEW CASE A 108 

4 NOT DEE I NED A 109 

BIDEG=8ETAI*180./3.1416 N A 110 

THI DEG= THETA 1*180. /3« 14-16 A 111 

A 112 

A 113 

ITERATE ON THETAF UNTIL P2 = P4 A 114 

A 115 

A 116 

THETAF=0. A 117 

BET A2-1. 5708 A 118 

RM3=FINDM(GAMMA,RM1 ,SIN(BETAI) , BETAI, ThETAI) A 119 

P30P1=PRATI0(GAMWA,RM1, SINl BETAI )) A 120 

A TYPE 4 INTERFERENCE PATTERN WITH INITIAL MACH NO RM1 A 121 
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C 


112 


C 

113 


C 


ENTERING AT ANGLE 0 DEGREES 

CALL TYP4 ( THET AF ,B£TA2 ,P.Nl ,RM3 , THE TAI , THET A4, BET A4 , P30P 1 , GAMMA , TO 
1L • I ERROR ) 

IF ( I ERROR— 3) 112,101,101 


A TYPE 4 INTERFERENCE PATTERN WITH INITIAL MACH NO M3 
ENTERING AT ANGLE THETA! RADIANS 


BET A5=l • 57C8 
THETA5=0. 

RM4=FINDM( GAMMA ,R M3 , SI N ( BET A4 ) , BETA4 , THET A4 ) 

P40 P3=PP AT I0( GAMMA, RM3, SINI BETA4) ) 

CALL TYP4 (THET A5,BETA5,RM3,RM4,THE T A4, THET A6, BE TA6,P40P3, GAMMA, TO 
1L, I ERROR) 

IF (IEPRnR-3) 113,101,101 

WRITE THETA AND BETA ANGLES £ ND MACH NUMBER 
WRITE <6,120) 

THFDEG=THETAF*57.296 

THF”=THFTA5*57.296 

RM2=FINDM(GAMMA,RM1,SIN (BET A2 ) , BETA2 , ABS ( THETAF ) ) 

THE TA2=THETAF 

THDEG=THETA2*180./3.1416 

IF (THETAF. LT.O) BE TA2=3. 14 16-BETA2 

BET0EG=RETA2 *180. /3. 1416 

ABSTH=THFDEG 

AAAT2=ABSTH 

ABSBT=BETDEG 

J=2 

WRITE (6,121) J , THDEG, B ETDEG, ABSTH, ABSBT , RM1, RM2 

T HQ EG=THETAI *57.296 

B£TDEG=BETAI*57.296 

ABSTH=THIDEG 

ABSBT =8 I DEG 

J = 3 

WRITE (6,121) J, THDEG, BETDEG, ABSTH, ABSBT, RM1.RM3 

THDEG=THETA4*180. /3.1416 

BETDEG=BETA4*180./3 .1416 

ABSTH=THFDEG 

ABSBT=THI DEG-B ETDEG 

AAAB4=ABSBT 

J = 4 

WRITE (6,121) J, THDEG, BETDEG, ABSTH, ABSBT, RM3,RM4 
P M5 = F I NDM ( GAMMA ,RM3 ,SIN(BETA5),BETA5,ABS(THETA5) ) 

THDEG=THETA5*57 .296 

IF (THETA5.LT .0 I BE TA5= 3. 14 16-BETA5 
BET DEG= BET A 5* 57 .296 
ABSTH=THI DEG-THFP 
ABSBT =THI DEG-B ETDEG 
J = 5 

WRITE (6,121) J, THDEG, BETDEG, ABSTH, ABSBT, RM3,RM5 
RM6=FINDM( GAMMA ,R M4 , S IN ( BET A6 ) , BETA6 , THET A6 ) 

THDEG=THETA6*57.296 

BETDEG=BETA6*57.296 

ABSTH=TH I DEG-T HFP 

AAAT6=ABSTH 

ABSBT=THFCEG+BETDEG 

ABB6=ABSBT 

J = 6 

WRITE (6,121) J, THDEG, BETDEG, ABSTH, ABSBT, RM4,RM6 


A 

122 

A 

123 

A 

124 

A 

125 

A 

126 

A 

127 

A 

128 

A 

129 

A 

130 

A 

131 

A 

132 

A 

133 

A 

134 

A 

135 

A 

136 

A 

137 

A 

138 

A 

139 

A 

140 

A 

141 

A 

142 

A 

143 

A 

144 

A 

145 

A 

146 

A 

147 

A 

148 

A 

149 

A 

150 

A 

151 

A 

152 

A 

153 

A 

154 

A 

155 

A 

156 

A 

157 

A 

158 

A 

159 

A 

160 

A 

161 

A 

162 

A 

163 

A 

164 

A 

165 

A 

166 

A 

167 

A 

168 

A 

169 

A 

170 

A 

171 

A 

172 

A 

173 

A 

174 

A 

175 

A 

176 

A 

177 

A 

178 

A 

179 

A 

180 

A 

181 

A 

182 

A 

183 
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A 184 

CALCULATE AND WRITE PARAMETER PATIOS FOR 2/1, 4/3, 4/1 A 185 

A 186 

•« • e « • • • •• ■••«•••■•*•»•••••••••••»(*«•,•& A 137 

10=2 A 188 

WRITE 16,122) A 189 

CALL 08LIQ ( GAMMA ,P Mi , ABSI THET AF ) , B ETA2 ,R M2 , P20P1 , 1 , 2, I Q) A 190 

CALL OBLIQ (GAMMA, RM 1 , T HETA I , BET A I , RM3 , P30P 1 , 1,3, 10) A 191 

CALL OBLIQ ( GAMMA ,R M3 , T HETA4, BETA4 , R M4 , P4GP3 » 3 , 4, I C ) A 192 

CALL C1BLIQ l GAMMA ,p M3, A BS ( THETA5 ) ,B ET A 5,P M5, P50P3, 3, 5, 1 0 ) A 193 

CALL OBLIQ ( GAMMA ,R M4, THETA6, BETA6, RM6 , P60P4 ,4, 6, 10 ) A 194 

CALL MLTRT ( P40P3 , P 30P 1 , P 40P 1 , 1 , 4, 1 ) A 195 

CALL MLTPT ( P50P3 , P3CP1 , P50P1 , 1 , 5, 1 ) A 196 

CALL ML T 0 T ( P60P4 , P40P1 , P60P1 , 1 , 6, 1 ) A 197 

«•#••»««••••«»••••••«••••«••••*••* • A 198 

A 199 

CALCULATE ABSOLUTE VALUES FOR POINTS 3 THRU 4 A 200 

A 201 

A 202 

WRITE (6,123) A 203 

WRITE (6,124) A 204 

VISCl=VISCJ( VR£F,TREF,T1,S) A 205 

A1=SQRT( 32.2*GAMMA*F*T1 ) A 206 

U 1= A 1*B M 1 A 207 

PEY1=RH01*U1/VISC1 A 208 

J=1 A 209 

WRITE (6,125) J,P1,RH01,T1, Al ,U 1, VI SC 1, REY1 ,R Ml A 210 

10=1 A 211 

J-2 A 212 

CALL ABSVAL ( P2 OP 1 , PI , P 2 , VR EF , TREF , S , J , 10 ,P M2 ) A 213 

J=3 A 214 

CALL ABSVAL ( P30P 1 , P 1 , P 3 , VR EF , TREF , S , J , 1 0 ,P M3 > A 215 

J=4 A 216 

CALL ABSVAL ( P40P 1 , PI , P 4, VR EF , TREF , S , J , I 0,R M4 ) A 217 

J=5 A 218 

CALL ABSVAL ( P5 OP 1 , P l , P 5, VR EF ,TR EF , S , J , 10 ,R M5 ) A 219 

J=6 A 220 

CALL ABSVAL (P6 OP 1, PI, P6, VREF ,TREF, S, J , 10 ,RM6 ) A 221 

WRITE (6,126) A 222 

J=1 A 223 

WRITE (6,125) J,PZ,RHOZ,TZ A 224 

J=2 A 225 

CALL ISTROP. (GAMMA, RM2, P2 ,P Z2, P20PZ 2, 2) A 226 

PZ20Z=PZ2/PZ A 227 

WRITE (6,125) J , PZ2»RH0Z2,T Z2, PZ20Z * A 228 

J=3 A 229 

CALL ISTROP (GAMMA, RM3»P3,PZ3,P30PZ3,3) A 230 

PZ30Z=PZ3/PZ A 231 

WRITE (6,125) J,PZ3,RH0Z3,TZ3,PZ30Z A 232 

J=4 A 233 

CALL ISTROP (GAMMA, RM4, P4,PZ4,P40PZ4,4) A 234 

PZ40Z=PZ4/PZ A 235 

WRITE (6,125) J,PZ4,RH0Z4,TZ4,PZ40Z A 236 

J=5 A 237 

CALL ISTROP (GAMMA, RM5, P5 ,PZ5 , P50PZ5 , 5 ) A 238 

PZ50Z=P Z5/PZ A 239 

WRITE (6,125) J,PZ5,RH0Z5,TZ5,PZ50Z A 240 

J=6 A 241 

CALL ISTROP (GAMMA, RM6, P6 »PZ6, P60PZ6 , 6 ) A 24 2 

PZ60Z=PZ6/PZ A 243 

WRITE (6,125) J,PZ6,RH0Z6,TZ6,P Z60Z A 244 

IF (RM6.GE.1.) GO TO 114 A .245 
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c 


114 


115 


C 

116 


117 

118 

119 

120 


121 

122 

123 


124 

125 

126 


127 


WRITE (6,127) A 2.46 

GO TO 115 A 241 

CALCULATE AMPLIFICATION FACTOR , _ A 240. 

CALL JET (GAMMA, AAAB4, A AAT2 ,P2,PZ6, RM6, AAAT6.CP »TZ6, PR, VREF , TWALL , A .25.2. 
1TREF , AMW, S »PZ2» RM 1, Tl» PZ, ABB6, XLRB, RB* I PRINT ) A 251 

THETAI=THETAI+T INCR A 254 

XLRB=0. A 255 

GO TO 101 A 256 

A 257 

FORMAT ( 1H1»25X»9H* * * , // 1X,81HTHI S PROGRAM PERFORMS A TYPE 4 A 258 

LSHOCK INTERFERENCE PATTERN WITH NORMAL IMPI NGEMENT, //26X, 7H* * * A 259 

2/ , 1 1H PUN NUMBER, F7. 2) AM 

FORMAT ( 30H XLISHOCK DISPLACEMENT LENGTH) ,F16. 6, 4H FT) A 251 

FORMAT (12H NOSE RADIUS , 18X ,F15. 5, 4H FT) A 262 

FORMAT ( 1H1, 19HTHET AI = ,F8.4,6H DEG) ...... _ A 2.63 

FORMAT ( //12X, 14HRELATI VE ANGLE , 10X , 14H ABSOLUTE ANGLE, /9X, 5HTHETA, A 264 
18 X , 4HBETA, 7X ,5HTHET A, 8X »4HBET A, 5X, 13HLPSTRE AM MACH,2X,10HL0CAL MAC A 265 

2H ) A .266 

FORMAT (1X,U,4F12.4,5X,F12.4,5X,F12.4) A 267 

FORMAT ( //1X,10HRATI0S ARE/) A 268 

FORMAT ( / / 7H REGION , 11X , 1HP ,12X,3HRH0, 11X, 1HT , 1 IX, IHAaiX, IHUillXi A 269 
12HM U, 3X , 1 1HRE YNOLDS N0,9H MACH NO) A 270 

FORMAT (15X, 3HPSI ,4X, 11HSLUGS/CU FT , 5X , 7HR ANK INE , 6X, 6HFT/S EC , 6X , 6H A 271 
LFT/SEC*4X»11 HSL UG/FT- SEC, ilX»4H 1/FT) A 272 

FORMAT <IX,I5,F12.4,E15.5,3F12.4,2E15.5,F8.4) A 273 

FORMAT 1/1X,25HST AGNATION CONDITIONS APE/7H REGION, 6X,5HPST AG, 12X, A 274 

I3HRH0, 7X, 5HTSTAG, 4X ,I2HPSTAG/PSTAGl,/,14X,4HPSIA,4X,llHSLUGS/CU FT A 275 

2 , 5X , 7HF ANK INE ) A 276 

FORMAT (1H0,57HMACH NO. IN REGION 6 IS LESS THAN 1.0 ... GO TO NEX A 277 
IT CASE) A 278 

END * A 279- 
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Program Flow Chart - JET 


Subroutine JET] 


IPRINT = 0?N XT S 


Write input parametersX 



Calculate coordinates 
of first part of jet 


/ CALL HEAT \ 

\ Compute and write heat -transfer) 
\ reference values / 


Compute flow field in 
jet region 


\Write flow field' 


/ CALL HEAT \ 

Compute and write 
\ heat transfer / 




Compute heat -transfer 
ratios 




i Write ratios' 


REGION = 8 >>-- Ye - S - A coordfnates ' 


Return 
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Program Listing - JET 


1 


2 


3 


4 


SUBROUTINE JET ( GAMMA , B 4 , TH ET 2 , P2 , P 06 , AM6 , THE T6 , C P , TQ6 , PR , AMUR* I M , 
1TR, AMk'T,S,P02,AMl ,T 1, PO 1, B6 , XLRB.RB, I PRINT) 

DIMENSION XJ ( 1 5 ) , YJ( 15 ) , THETI15) 

DIMENSION VAR 1(11), VAR D( 11,1) 

DATA VAPI/ . 12, .24 34, . 42, . 495, .56, . 605, .65, . 69 , .72 5, . 76/ 

DATA VARD/.l, .2, .3, .4, . 5, .6, .7, . 8, . 9, 1. ,1.1/ 

IF <IPR INT.EQ.O ) GO TO 2 

WRITE (6,10) GAMMA, B4, T HET2 , P 2 , P06, AHfc ,CP , T06 , PR , AMUR , T W , TR , AMWT , S 
1,THET6,P02,AM1, T1 ,B6 
KODE= 1 

PI=3. 1415927 

PT0=180.0/PI 

THET(2)=THET2/RT0 

THET(6)=THET6/R TD 

8 4R =B4/RT 0 

B6P =B6/RTD 

XL12=XLRB*RB 

XL13=XL12*(SIN( B4R)-C0S(B4R ) *T AN( B6 R ) ) / ( S IN ( THET ( 2 ) ) -COS ( THET ( 2 ) )# 
l T AN ( B6 p ) ) 

XJ( II =0. 

VJ(1I=C. 

XJ( 2)=XL12*C0S( B4R) 

YJ( 2)=XL12’!'S I N ( B4R) 

XJ( 3)=XL13*C0S< THET ( 2 I I 
YJ( 3)=XL13*SIN( THET (2) ) 

GPl=GAMMA+l. 

GM1=GAMMA- 1. 

GP0M=GP1/GM1 
GM0P=GM1/GP1 
P7 = P2 
P 07 = P 06 
PR7=P7/P07 

Zl=PR7**(-GMl/GAMMA 1-1. 

IF (Zl.GE.O.) GO TO 3 
WRITE (6,11) Z1 
CALL EXIT 
CONTINUE 

AM7 = SQPT { 2 . / GM 1 *Z 1) 

A MUB6R= AS l N ( 1./AM6) 

AMU B6 D=P T D* AMUB6P 
AMUB7R=ASIN( 1./AM7) 

AMUB7D=P.TD* AMUB7R 
IF (AM6.GE.1.0) GO TO 4 
WRITE (6,12) AM 6 
CALL EXIT 

IF (AM7.GF.1.0) GO TO 5 
WRITE (6,13) AM 7 
CALL EXIT 

Z2 = SORT ( GMOP*( AM6**2-1. I ) 

Z 3 = SORT ( AM6**2- 1 . ) 

ANU6R = SO p T(GPOM ) * AT AN ( Z 2 ) -A TAN ( Z 3 1 
ANU6 0= A NU6 p * RT D 
Z4=S0RT(GMnp*( AM 7 ** 2- 1 . ) ) 

Z5 = S0PT ( AM7**2-1 . ) 

ANU7R = S0PT(GP0M ( * AT AN ( Z 4 ) -A TAN < Z5) 

ANU70=AM.)7P*RTD 

DTHE T = ANU7R-ANU6P 

DEL T A= ( AMUB6R + AMLJB7 R+DT HE T ) *0.5 

F PS=DELTA-DTHET-THET(6) 


D i 
D 2 
D 3 
0 4 

D 5 
D 6 
D 7 
0 8 
0 9 

D 10 
D 11 
D 12 
D 13 
D 14 
D 15 
D 16 
D 17 
D 18 
0 19 

D 20 
D 21 
D 22 
0 23 

D 24 
D 25 
D 26 
D 27 
D 28 
D 29 
D 30 
D 31 
D 32 
D 33 
D 34 
D 35 
D 36 
D 37 
D 38 
D 39 
D 40 
D 41 
D 42 
D 43 
D 44 
D 45 
0 46 

D 47 
D 48 
D 49 
D 50 
D 51 
D 52 
D 53 
D 54 
D 55 
IJ 56 
D 57 
D 50 
D 59 
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C 

C 


fc 


7 


8 


AN7 = EPS 

DTHETD = P TD*D THE T 
DELTA D=RTD*D EL T A 
E P SD = P TO* E p S 
AN7 D=RT D*AN7 

XJ( 4)=(YJ(3)-YJ (2 ) + XJ(2 )#TAN(THET(6 ) ) +X J ( 3 ) *T AN ( AN7 ) ) / < T AN { AN7 ) +T A 
IN ( THET( 6 ) ) ) 

YJ(4)=YJ(2)+(XJ(4)-XJ(2))*TAN(THET(6)) 

ZLJ = $ QR T ( ( X J ( 4 ) - X J t 3 ) (**2+< YJ (41-YJ ( 3) )**2) 

ZLK=2.*ZLJ*C0S(DELTA) 

EPS8=DELTA-0TH6T 
ZLM=2.*ZLJ*CQS( EPS8 ) 

ZW8=ZLJ*SIN( EPS8) 

ZW7 = Zt. J*S INCD6LTA) 

TTS=SQPT(2.*CP*T06) 

CONSTANT INPUT TO SUBROUTINE HEAT 

R 6= 1545 . / AMWT 

AO= { 0. 76/PR** ( .6) )/ (778. 26* SORT (32. 2) ) 

AMU W=VISCJ( AMUR, TR,TW,S ) 

AMU 1 = VI SC J( AMUR ,TR, T06, S) 

DQ=CP*(T06-TW) 

AM12= AM1**2 

CALCULATION OF UGPDTS 

U1=AM1*SQRT (GAMMA*RG*T1*32.2 ) 

WRITE (6,14) 

CALL HEAT ( RG , T W, TG6 , AMUW , A MU1 , AQ, DQ, UGP DTS , PSN I , PO 1 , AM12 , GP 1 ,GM1 , 
1 GAMMA ,OWS , U 1 , R8 ) 

BEGIN LOOPING 


MAX R = 2 
NREG=6 

00 9 1=1 , MAX R 
NREG=NFEG+1 
NREGM1=NREG-1 
NRFGM2=NREG-2 
N RE GM4=N p EG-4 

THE T( NREG ) =THET ( NRE GM1 ) +DTHET 
THETD=THET (NPEG)*RTO 
AL PHA = 90 . 

ALP I=ALPHA+THET (NREG)*RTD 

ALPHAP=ALPHA 

SIGN=1. 

IF (ALPHA. LE. 90. ) GO TO 6 
ALPHA=180. -ALPHA 
S IGN=-1 . 

CONTINUE 

IF (MOO (NR EG, 2) .EG.C) GO TO 7 
XJ(NREGM2)=XJ(NREGM4)-8-ZLK*C0S(THET(NREG) > 
YJ( NREGM2 I = Y J ( NR E GM 4 ) +Z LK *S IN ( THET ( NREG) ) 
ZLW=ZW7 
RM ACH=AM7 
GO TO 8 
ZLW=ZW8 
F MACH = AM6 

X J { NREGM2 ) = XJ(NREGM4)+Z LM*COS< THET ( NREG) ) 
Y J ( NPEGM2 ) =YJ(NREGM4) +ZLM*S IN S TH ET ( NR EG ) ) 
WRITE (6,15) NREG 
T7=T0fc/( l.+GMl/2.*RMACH**2) 


D 6C 
0 61 
D 62 
D 63 
D 64 
0 65 

0 66 
0 67 

D 68 
D 69 
D 70 
D 71 
D 72 
D 73 
D 74 
D 75 
0 76 

D 77 
D 78 
D 79 
D 80 
0 81 
D 82 
D 83 
D 84 
D 85 
D 86 
D 87 
D 88 
D 89 
0 90 

D 91 
0 92 

D 93 
D 94 
D 95 
D 96 
D 97 
0 98 

0 99 

D 100 
D 101 
D 102 
D 103 
D 104 
D 105 
0 106 
D 107 
0 108 
D 109 
D 110 
D 111 
D 112 
D 113 
D 114 
0 115 
D life 
0 117 
D 118 
D 119 
D 120 
D 121 
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U7=PMACH*SQRT( GAMMA*RG*T7*32.2> D 122 

DEL 0W=. 45 D 123 

SDS=DELOW*ZLW D 124 

SMACH=RMACH**2 D 125 

ABC = 2.+GM1’!'SMACH D 126 

RH0J0S=A8C/ (GP1*SMACH) D 127 

CALL MTLUP (RHO JOS, CELOR, l, 11 , 1 1 , l , - 1 , VAR I » VARD ) D 128 

PN= SOS/ DELOR D 129 

WRITE (6,16) THETD, ZLW, RMACH,RN D 130 

CALL HEAT ( RG, T W , TOfc , AMUW , A MU1 , AQ, DQ , UGRDT , PW ,P 06 , SMACH , GP1 , GM1 , G A D 131 
1 MMA , OW , U7 , RN ) D 132 

PQW=QW/QWS D 133 

RL=RB/ZLW D 134 

PWR I=PW/PSNI D 135 

RTLP=RB/XL 13 D 136 

P L J =XL1 3/ ZLW D 137 

RATLJ=PLJ*PWRI 0 138 

PWR =PSN I / PW 0 139 

ORED=1.03*SQPT(RL/PhPI 0 140 

WRITE (6,17) RL » PWP I, ROW, QR ED D 141 

9 CONTINUE D 142 

WRITE (6,18) ( XJ( I) ,YJ< I ) , I = L ,6) D 143 

RETURN D 144 

C D 145 

1C FORMAT ( 1H0, 8HGAMMA = , E12. 5, 9X , 5HB4 = , E 12 . 5 , 1 3X , 8 HTHET 2 = ,E12.5 D 146 
1 , 10X,5HP2 = , E 1 2. 5, / , 1H ,6HP06 = , E 1 2 . 5 , 1 IX , 6H AM6 = , E 1 2 . 5 , 1 2 X , 5HC D 147 
2P = , E12. 5 , 13X, 6HT06 = ,E12.5,/,1H ,5HPR = , E 12 . 5 , 12 X , 7HAMUR = ,E1 D 148 
32 .5 , 11X , 5HTW = » E 12 . 5 » 1 3X, 5HTR = ,E12.5,/,1H , 7HAMWT = ,E12.5,10X, D 149 
44HS = ,E12.5,14X,8HTHET6 = , E 12 .5 , 1 0 X , 6HP02 = ,E12.5,/,1H ,6HAM1 = D 150 
5 ,E12.5,11X,5HT1 = ,E 12 . 5 , 1 3X , 5HB6 = ,E12.5,//) D 151 

11 FORMAT ( 1H0,23HEPR0P MESSAGE ... Z1 = ,E12.5,//) 0 152 

12 FORMAT ( 1H0, 24HERRCR MESSAGE ... AM6 = ,E12.5,//) D 153 

13 FOPMAT ( 1H0 , 24HERR0R MESSAGE ... AM 7 = ,E12.5,//) 0 154 

14 FORMAT ( 1H0, 41HC0ND ITIONS WITHOUT SHCCK INTERFERENCE ARE) D 155 

15 FORMAT ( / / , IHO , 21 HC OND I T I CNS IN REGION ,12) D 156 

16 FORMAT ( IHO, 8HTHE TA = ,E12.5,4H DEG , 3X, 12HJET WIDTH = ,E12.5,5H FE D 157 

1 ET , 3X , 1 1 HMACH NO. = , El 2. 5, 3X, 15H NOSE RADI LS = .EI2.5.5H FEET) D 158 

L7 FORMAT ( 1H » 30HR A T I 0 NOSE RADIUS TO JET WIDTH, 24X,3H = ,E12.5,/,IH D 159 

1 , 26 HP WALL/P PITOT FREE STREAM , 28X , 3H = ,EI2.5,/,IH .57HHEAT TRAN D 160 

2SFEF RATIO (WITH INTERFERENCE TO 3-D WITHOUT) = ,EL2.5,/,1H ,26HHE D 161 
3AT TRANSFER R AT 10 ( E CNEY ) , 27 X, 3H = ,E12.5) D 1&2 

18 FORMAT ( / /27H COORDINATES OF THE JET APE, /, IHO, 4HJI ( , E 12 . 5, IH, , E 1 0 163 

12 . 5 , 1H) , / , 1H , 4HJ 2 ( , E 1 2 . 5, 1H, , E 12. 5 , 1H ) , / , 1H ,4HJ3 ( , E 12. 5, 1H, , E 1 D 164 
22 . 5 , IH ) , / , 1H ,4HJ4 ( ,E12.5, IH, , E12.5, IH) , /, 1H ,4HJ5 ( , E12.5, 1H, , E 1 D 165 
32.5, 1H) ,/, 1H ,4HJ6 ( , E 1 2 . 5, IH , , E 12. 5 , IH ) ) 0 166 

END D 167- 



Program Flow Chart - HEAT 



Program Listing - HEAT 


C 


C 

l 


SUBROUTINE HEAT ( RG , TW , T06, AMUW , AMU 1 , AQ , DQ» UGRDY . PW , POl , AM 12 , GP I, G C 
1M1, GAMMA, QW,U.R) C 

TERM1=(GPI*AM12 I/(GM*AMl2+2. ) C 

TERM2=GP1/(2.*GAMMA*AM12-GM1) C 

PW=PQ1*TERN1**( GAMMA/GM1I*TERM2**<1 ./GMl 1 C 

UGRDT=U/R*SQRT( GM 1/GAMM A* < 1 .+2. /(GM 1*AM12 I) * ( I . -1 . / ( GAMM A* AM 12 ) ) ) C 
BQ=(U44.*AMUW)/(RG*TW) )**< .1) C 

CQ= ( ( 144 .* AMU I ) / ( RG*T06 ) )**( .4) C 

E Q1 =PW** • 5 C 

QW=AQ*BQ*CQ*DQ*EQ 1* SQRT { UGR OT I C 

WRITE (6,1) PW » UGRD T » QW C 

RETURN C 

C 

FORMAT l 1 HO * 22H WA LL PRESSURE = ,ET2.5,4H PSI./1H ,22HVELflCIT C 

1Y .GRADIENT = ,E12.5,6H 1/SEC, /,1H , 22HSTAGNAT ION HEATING = ,E12 C 
2.5, 14H BTU/SQ.FT-SEC,/) C 

END C 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
18- 


USAGE 

Program SHOCK for a type IV interference pattern uses the standard FORTRAN 
NAMELIST input with $DATAIN as the NAMELIST name. The input includes the flow 
conditions, gas properties, flow deflection or shock angle, shock displacement length Lgg 

(see fig. 6), and nose radius. The program can increment the shock generator angle and 
lists the peak pressure and heat transfer in regions 7 and 8 (see fig. 7) for each angle. 
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A description of the input and output variables and a sample case are presented. 


The 

RUN 

RM1 

GAMMA 

THETAI 

TINCR 

NTIMES 

IPT 

T 

P 

AMW 

TREF 

VREF 

RB 

S 

TWALL 

XL 

XLRB 


Input Description 

$DATAIN input for type IV is as follows: 
run number for identification 
M m , free -stream Mach number 
c p/ c v> ra tio of specific heats 

6l, shock generator angle, deg; or /3j, impinging shock angle, deg 
increment for (Default = 5°) 
number of times to increment 

initial point; 0 for stagnation conditions, 1 for free -stream static conditions 
temperature at IPT, °R 
pressure at IPT, psia 

molecular weight (used to compute gas constant) 
reference temperature for computing viscosity, °R 
reference viscosity for computing viscosity, slugs/ft-sec 
nose radius, ft 

Sutherland's constant in viscosity equation 
temperature at wall, °R 

L sh , shock displacement length (jj - J 2 in fig. 7), ft 

ratio of shock displacement length to nose radius (may be input in place 
of XL) 
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CP Cp, specific heat at constant pressure, ft-lbf/’slug-°R 

PR Np r , Prandtl number 

TOL acceptable tolerance for equal pressures (0.001) 

ANGLE THET if % input; BETA if /3j input 

IPRINT 0 to suppress extra printout; 1 for complete printout 

Output Description 

RUN NUMBER run number for identification 

Ml M m , Mach number in free stream 

GAMMA (CP/CV) ratio of specific heats 

TEMP AT POINT "IPT" input as T, °R 
PRES AT POINT "IPT" input as P , psia 

MOLECULAR WEIGHT molecular weight (used to compute gas constant) 

REFERENCE TEMP reference temperature for computing viscosity, °R 

REFERENCE VISCOSITY reference viscosity for computing viscosity, slugs/ft-sec 
S(SUTHERLAND NUMBER) Sutherland's constant in viscosity equation 
TEMP AT WALL T w , °R 

CP Cp, specific heat at constant pressure, ft-lbf/slug-°R 

PRANDTL NUMBER Np r , Prandtl number 

XL(SHOCK DISPLACE- distance from Jj to J2 (see fig. 7), ft 

MENT LENGTH) 
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NOSE RADIUS 

THETAI 

RELATIVE ANGLE 
THETA 
BETA 

ABSOLUTE ANGLE 
THETA 
BETA 

UPSTREAM MACH 
LOCAL MACH 
P2/P1, etc. 
RH02/1, etc. 
T2/T1, etc. 

A2/A1, etc. 

U2/U1, etc. 

REGION 

P 

RHO 

T 

A 


nose radius, ft 

0j_, shock generator angle, deg 

flow angle relative to flow in upstream region, deg 
shock angle relative to flow in upstream region, deg 


flow angle relative to free -stream flow, deg 
shock angle relative to free -stream flow, deg 
Mach number in upstream region 
local Mach number 

p^, etc., pressure ratios for regions listed 

Pg/pf, etc., density ratios for regions listed 

T 2 /Ti, etc., temperature ratios for regions listed 

a 2 /a 1 , etc., ratios of speeds of sound in regions listed 

u 2/ u l’ e t°‘> velocity ratios for regions listed 

region in shock pattern 

static pressure for region, psia 

static density for region, slugs/ft^ 

static temperature for region, °R 

speed of sound for region, ft/sec 
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u 

MU 

REYNOLDS NO 
MACH NO 


velocity for region, ft/sec 


static viscosity in region, slugs/ft -sec 


Reynolds number per foot in region 


Mach number in region 


The following stagnation conditions are then listed: 


PSTAG 

RHO 

TSTAG 

PST AG/P STAG 1 


total pressure in region, psia 

total density in region, slugs/ft ^ 

total temperature in region, °R 

ratio of total pressure in region to free -stream 
total pressure 


Reference conditions without interference are listed as 

WALL PRESSURE Pstag’ s t a g na tion pressure on sphere, psia 

VELOCITY GRADIENT stagnation velocity gradient on sphere, 1/sec 

STAGNATION HEATING Qstag’ stagnation -point heat -transfer rate on sphere, 

Btu/ft^-sec 

The peak conditions for regions 7 and 8 are listed as follows: 


THETA 
JET WIDTH 
MACH NO. 

NOSE RADIUS 


jet flow angle, deg 


w, jet width, ft 


jet Mach number 


Rbj, nose radius of "jet body," ft 


WALL PRESSURE 


peak pressure at wall (jet stagnation pressure), psia 
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du w \ 


-i , jet stagnation velocity gradient, 1/sec 
'stag 


VELOCITY GRADIENT 

STAGNATION HEATING Q pk , jet stagnation heat -transfer rate, Btu/ft 2 -sec 

R h /\ 


RATIO NOSE RADIUS TO JET WIDTH 


PWALL/P PITOT FREE STREAM 


i w 


p pk/ p stag 


HEAT TRANSFER RATIO Qpk/Q s tag’ ratio of peak heatin § in re S ion to reference 

heating on sphere 


HEAT TRANSFER RATIO (EDNEY) 


Qpk/Qgtag? heating ratio calculated from 
equation (7) 


COORDINATES OF JET (J1 to J6) 


coordinates of jet as defined in figure 7 


*OATA IN 
RM1 
GAMMA 
T HE T A I = 
T I NC R 
NT I ME S = 
I PT 
T 

P = 

AMW 

TREF 

VREF 

RB 

S 

TWALt 

XL 


0. 6E + 01 , 
0.14E+01, 
0.5E+01 , 
O.5E + 0I , 

It 

0, 

0.9E+03, 
0.4E+02 , 
0.2897E+02, 
0.53E+C3, 
0.3 801 E-C t f 
0 . 5E + 0 C t 
0. 1986E+03, 
0. 55E+C3, 

0. 15E+CC, 


Sample Case - Input 
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0 


6CC6E+04 


C P 
PP 
T 01 

PP IN T 

XLRB 

PUN 

ANGIE 

SEND 


0 . 7 2 E £0 0 , 

0. 1E-0? , 

0 , 

0 . 0 , 

0. 1E+01 , 

0.6940472576510°F+P3, 


Sample Case - Output 


THIS PROGRAM PERFORMS A TYPE 4 SHOCK INTERFERENCE PATTERN WITH NORMAL IMPINGEMENT 

* * * 

RUN NUMBER X .00 
INPUT VARIABLES ARE 


Ml 

6.000 


GAMMAICP/CV) 

1.400000 


TEMP AT POINT 0 

900.000000 

RANKINE 

PRES AT POINT 0 

400.000000 

PSI 

MOLECULAR WEIGHT 

28.970000 


REFERENCE TEMP 

53C. 000000 

RANKINE 

REFERENCE VISCOSITY 

3.801000E-07 

SL UG/ I FT- SEC ) 

SISUTHERLANO NUMBER) 

198. tOO 


TEMP AT WALL 

550. COO 

RANKINE 

CP 

£006.000 

FT-LBF/l SLUG-RANK IN El 

PRANDTL NUMBER 

.720000 


XL ( S HOCK DISPLACEMENT LENGTH) 

• 150COO 

FT 

NOSE RADIUS 

,50000 

FT 
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THETAI 


5.0000 


DEG 


RELATIVE ANGLE ABSOLUTE ANGLE 



THETA 

BETA 

THET4 

BETA 

UPSTREAM MACH 

LOCAL MACH 

2 

-31 .6175 

99.4092 

-31.6177 

99.4092 

6.0000 

.5367 

3 

5,0000 

13.1593 

5.0000 

13. 1597 

6.0000 

5.3157 

4 

36. 6174 

51.9049 

-31.6177 

—46. 9049 

5.3157 

1.6321 

5 ' 

27. 27C6 

82.1113 

-22.2706 

-77.1114 

5.3157 

.5036 

6 

9.3470 

48.7307 

-22.2706 

17.1131 

1.6321 

1.3013 


PATIOS 

AR F 









P2/P1* 

40.7107 

PH02/1 = 

5.2507 

T2/T1- 

7. 7534 

A2/AI = 

2. 7845 

U2/U1 = 

.2491 

P3/P 1= 

2.C103 

PH02/1= 

1.6306 

T3/T1 = 

1.2328 

A3/A1= 

1.1103 

U3/U1= 

• °837 

P4/»3= 

20.2512 

PP04/3= 

4.6667 

T4/T3= 

4.3395 

A4/A3= 

2.0831 

U4/U3= 

.6396 

P5/P3= 

32.175? 

PH05/3= 

5.C833 

T5/T3 = 

6.3303 

A 5/ A3= 

2.5160 

U5/U3 = 

.2383 

P 5/P 4= 

1 .5390 

RH06 /4= 

1.3P81 

T 6/T4 = 

1.1448 

A6/A4= 

1.0699 

U6/U4 = 

. 8534 

P 4 / P 1 = 

40.7104 

p H04/ 1- 

7.6096 

T4/T1 = 

5.3499 

A4/A1= 

2.3130 

U4/U1= 

.6292 

P5/° 1 = 

64.6832 

P.H05/l = 

°.2PR8 

T5/T1= 

7. 8043 

A5/A1= 

2.7936 

U5/Ul= 

. 2345 

P6 /PI = 

64.6890 

RHC6/ 1= 

10.5626 

T6/T1= 

6.1243 

A6 / A 1 = 

2.4747 

U6/U1 = 

.5369 


REGION 

p 

PHD 

T 

A 

U 

MU 

REYNOLDS NO 

MACH NO 


PST 

SI.UGS/CU F T 

PANKINE 

FT/SEC 

FT/SEC 

SLUG/FT-SEC 

1/FT 


1 

. 2533 

1 .93645E-04 

109.7561 

513. 5679 

3081.4074 

8.46377E-08 

7 . 05004E*06 

6.0000 

2 

10.3138 

1.01677E-C3 

350. 980 7 

1430.0242 

767.43 85 

5.368 30 E— 0 7 

1.45355E+06 

.5367 

3 

.5093 

3 . 15 76 0E-04 

135.3111 

570. 2302 

3031.1919 

1 . 06990 E-07 

8.94597E+06 

5.3157 

4 

10.3138 

1.47356F-03 

887.1804 

1187. 8711 

1938.7491 

4.1 0988E-07 

6.95122E+06 

1.6321 

5 

16.3884 

l, 605 09 E- 03 

386.5663 

1434.7097 

722.4796 

5. 39255E— 07 

2. 15046E+06 

.5036 

6 

16.3 386 

2.04540F-03 

672.182 2 

12 70. 9459 

1654.5151 

4.54249E-07 

7 .44998E+06 

1.3018 

STAGNATION CONDITION' a°E 







R EG T CM 

PSTAG 

RHO 

TSTAG 

P ST AG/ P ST AG1 





PSI A 

SLUGS/CU FT 

PANKINE 






1 

400. OCOO 

3.’2S56E-02 

9CC. OCOO 






2 

12.5472 

l.l 6958E-03 

399.9981 

.0314 





3 

386.5123 

3.60230E-02 

9C0.0039 

. 9663 





4 

45.9812 

4 .28605S— 03 

9C0.0088 

.1150 





5 

19.4366 

1.8 1641E- C3 

OCO. 0083 

. 04 87 





6 

45.5199 

4.24305 E— 03 

9C0.0088 

. 1133 





CONDITIONS WITHOUT 

SFCfX T NT EP FTP ENC E ARE 






WAl L °P ESSU«E 

= 1 . 1R6C4E+0 1 

PSI 






VELOC m 

GRADTFNT 

= 3.431 2 3E+03 

1/SEC 






STAGNATION HEATING 

= 3 . 71 299E*00 

RTU/SQ.FT- 

SEC 






CONDITIONS IN REGION 7 


THETA = -1.28803E+01 DEG JET WIDTH = 3.95747E-02 FEET MACH NO. 


1 • 62535E+Q0 NOSE RADIUS = 3.68847E-02 FEET 


HALL PRESSURE = 4.03125E+01 PSI 

VELOCITY GRADIENT = 4.07153E+04 1/SEC 

STAGNATION HEATING = 2.34103E+01 8TU/SQ.FT-SEC 


CO 
c n 


RATIO NOSE RADIUS TC JET WIDTH 
P WALL/P PITOT FREE STREAM 

HEAT TRANSFER RATIC (WITH INTERFERENCE TO 3-D WITHOUT) = 
HEAT TRANSFER RAT I C (EDNEY ) 


1.26343E+01 
3.39893E+00 
6. 304976*00 
6 • 749 70E + 00 



CONDITIONS IN REGION 8 

THETA = -3.48998E+00 DEG JET WIDTH = 3.33868E-02 FEET MACH NO. = 1.30180E+00 NOSE RADIUS 

WALL PRESSURE = 4.45667E+01 PSI 

VELOCITY GRADIENT = 7.30754E+04 1/SEC 

STAGNATION HEATING = 3.29761E+01 BTU/SQ.FT-SEC 


RATIO NOSE RAOIUS TO JET WIDTH 
P WALL/P PITOT FREE STREAM 

HEAT TRANSFER RATIO (WITH INTERFERENCE TO 3-0 WITHOUTI *> 
HEAT TRANSFER RAT lO(ECNEY) 


1.49760E+01 

3.75762E+00 

8.88128E+00 

7.72fc65E-t-00 


1.8Z99SE-02 FEET 


COORDINATES OF THE JET ARE 

J1 1 0. t 0. ) 
J2 i I.02482E-01.-1.C9S33E-01I 
J3 \ 1.52 T70E-C1 1— 9 .4Q498E— 02 ). 
J4 ! 1.77751E— 01,-1. 40358E-C1) 
J5 C 2.203 76E- 01 ,-1.09509 E-Ql) 
J6 ( 2 .58 S36E- 01,-1 .453 1.QE- Oil 



PART ¥ - TYPE V INTERFERENCE 


PROBLEM DISCUSSION 

Type V interference involves the interaction of two weak shocks of the same family. 
The interaction produces a shear layer, a supersonic jet, and a transmitted impinging 
shock, as shown in figure 1(e). On a blunt body the shock interaction occurs near the 
upper sonic point, as shown in figure 2. A complete solution of the type V flow field 
shown in figure 9 is not presently available because of the embedded subsonic flow 
(region 4). It is possible, however, to follow the treatment for type II interference and 
solve only the supersonic regions adjacent to the body surface in order to obtain the peak 
values of pressure and heat transfer at the shock— boundary -layer interaction IP. 

The method of solution for type V is similar to that for type II interference with the 
exception that the impinging shock is of the same family and directly influences the flow 
on the model. As in the case of types I and II, the flow model consisted of two wedges 
creating the bow and impinging shocks. The flow conditions in regions 2 and 3 are obtained 
by using the Rankine -Hugoniot equations once the free -stream conditions in region 1 and 
the flow angles ( 61 , 63 ) or shock angles (/3 i 5 /3g) are specified. The triple-point configura- 
tion at point B is solved in the same manner as discussed in part II for a type II inter- 
ference. The transmitted impinging shock may reflect as a shock or a Mach reflection 
depending on the Mach number in region 5 and the surface inclination. Once the pres - 
sure ratio across the shock — boundary -layer interaction Pg/Pg is calculated and the 
state of the boundary layer and the impingement point are specified, the peak heating ratio 
is obtained from equation ( 1 ). 


PROGRAM DESCRIPTION 

The main program reads the input, calls the various subprograms, and computes 
the heat transfer. TYP4 calculates the flow deflection angle of the shear layer at point B 
(fig. 9). FTHETA is called to compute the flow angle and FINDB is called to compute the 
shock angles in each region. The subprograms OBLIQ, FINDM, PRATIO, MLTRT, 
ABSVAL, AND ISTROP compute flow variables and ratios of the flow variables. PINPUT 
prints the input variables. The flow charts and listings of these subprograms are pre- 
sented in part VII. The flow diagram and listing for the main program follow. 
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Program Flow Chart — Main 

C TYPE v 


' Read NAMELIST data/ 
for new case / 


\Write heading ' 


CALL ISTROPX 

Compute 
stagnation 
, conditions / 


/ Were \. 
stagnation' 
conditions / 
\ input? / 


/CALL ISTHOP x 

Compute 
free -stream 
\ conditions / 


CALL FINDB 
Compute £2 


' CALL PINPUT N 
Write input 




Convert angles to radians j 



/ 

* \ 


/CALL FTHETA 
v Compute $2 


/ CALL FINDM J 

Compute Mach number in region 2 


/ CALL PRATIO > 

^Compute pressure ratio P2/P1 , 


/ ls \ 

/iteration foiN 

maximum 

#3 

Xcomplete?/ 


Set 03 to 
minimum 
value 


'CALL FINDB 
Compute 


/CALL FTHETA 
Compute 0g 


/ CALL PRATIO _ 

Compute pressure ratio P3/P2 
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Program Listing - Main 


PROGRAM SHOCK{ INPUT , OUT PUT , TAPE5=I NPUT , T APE6=0UT PUT i 


THIS PROGRAM PERFORMS A TYPE V SHOCK INTERFERENCE PATTERN 
FOR TWO DIMENSIONAL FLOW 


> a & e e « 


COMMON 


1 

2 

3 

A 

5 

6 


PZ, 
PZ2» 

PZ 3* 
PZ4, 
PZ5, 
PZ6, 

P 20P I , 


RHOZ, TZ, PIOPZ, RHOIOZ, TIOTZ, 


RHCZ2 , 
RHOZ3, 
RHOZ4, 
RH0Z5, 
RH0Z6, 


TZ2, 
TZ3, 
TZ4, 
TZ5 « 
TZ6, 


P20PZ2, 

P30PZ3, 

P40PZ4, 

P50PZ5, 

P60PZ6, 


RHU2Z2, 

RH03Z3. 

RHU4Z4, 

RH05Z5, 

RHU6Z6, 


T20TZ2, 

T3UTZ3, 

T40TZ4, 

T50TZ5, 

T60TZ6, 


RH0201 , T20TI, A20A1, U20UI, 


C 

101 


DIMENSION PN( 2 ) t HR (2) 

SET DEFAULTS FOR INPUT VARIABLES 
CAT A BETA/4HBETA/ ,T0L/.O01/ 

DATA TINCR/5.0/.TSTART/5.0/ 

DATA GAMMA / 1.4/ , N2 *N3 »N6/1, 1» 1/ , A NGLE 2 »ANG LE 3/2*4HTHE TZ 
DATA I PT/O/ » A MW/2 8 • 97 / , T REF/ 5 32 .9 8/ , V REF/ .3807E-6/ , XL/1.0/ 
DATA TWALL/5 30. /, S/ 216. /*CP/60Q6. / »PR / .72/ 

DATA TH2SV* BT2SV ,T H3S V , BT3SV/ 4*0./ »SV INCR/5.0/ 

DATA AR/57.296/ 

I SW3 USED TO INDICATE ITERATION ON THETA3 HAS BEGUN 
NAMELIST /DATAIN/ R M 1 ,G AMMA * THE TA2 » THE T A3 , T I NCR » N2 * N3 , T 
12, ANGLE3, BETA2, BETA 3 , IPT , T , P »*MW, TREF , VREF , XL ,S , T W ALL , CP, P 
SET CONSTANTS FOR STANTON NUMBERS 
I SW3=0 
S IGN= 1 . 

PN ( 1 ) =1. 29 
PN (2)=0.85 
RN ( 1 ) =-.5 
RN ( 2 )=— 2. 584 
AA < 1 ) = 0. 332 
AA(2) = <=185 
S I GN3= L. 

a«a©©®©e©®«®®©©©©®®«©a®®® i0 ©®®®®®®® ,s ®®®®®®®®®®®®®®®®®® <i ’®®®® S 

TINCR=SVINCR 

THETA3=TH3SV*57.296+TINCR 
BET A3 = BT3S V *57 . 296 +T I NC R 
THE TA2 = TH2SV 
BET A2=BT2SV 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


7 

P3UP2, 

RH0302, T30T2, 

A30A2, 

U30U2, 

A 

8 

P30P1, 

RH03G1, T30T1, 

A30A1 , 

U30U1 , 

A 

9 

P40P2, 

RH04C2, T40T2, 

A40A2, 

U40U2, 

A 

$ 

P40P1, 

RH0401 , T40T1 , 

A4UA1 , 

U4UU1 , 

A 

$ 

P50P3, 

R HO 50 3, T50T3, 

A5DA3, 

U50U3, 

A 

$ 

P60P5 , 

RH06C5 , T60T5, 

A60A5 , 

U60U5 , 

A 

$ 

P50P1, 

RH0501, 750 Tl , 

A 50A 1 , 

U50UI , 

A 

$ 

P60P1 , 

RH06C1, T60T1, 

A6UA1 , 

U60U1 

A 

COMMON 

P60P 3, 

RHO 60 3 , T60T3 , 

A 60A 3 , 

U60U3 

A 

CCMMCN 

PI, RH01, Tl, Al, Ul, 

VISC1, 

REY1, 

A 

1 

P 2, RH02, T 2 , A2 , U2 , 

VISC2, 

REY2 , 

A 

2 

P3, RH03, T3 * A3, U3, 

VISC3, 

REY3, 

A 

3 

P4, RHO 4 , T4, A4 , U4, 

VI SC 4 , 

REY4 , 

A 

4 

P5, RH05 , T 5 , A5 , U5, 

VISC5, 

REY5, 

A 

5 

P 6 » RH06, T6 , A6 , U6 , 

VI SC 6, 

REY6 

A 

DIMENSION T3ST AR ( 2 ) » RH03STR ( 2 J » V3STAR12), REY3STRI 2) , STN3(2), S 

A 

ITN 1(2) , 

QFP ( 2 ) 

, QPK ( 2 ) , HF P ( 2 ) 

, HPK12), T R (2 ) , RR (2 ) , AA ( 2 » , RN ( 2 ) 

A 

A 


OL, ANGLE 
R, RUN 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


1 

2 

3 

4 

5 
fa 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 


L-8547 
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READ ( 5, DATA l N) 

IF (ENDEILE 5) 102,103 

1 02 STOP 

103 CONTINUE 

RR ( 1 ) = SQRT ( PR ) 

RR ( 2 )=PR**( 1./3. ) 

WRITE (6,123) RUN 
R= 1544. 3/AMW 

C DENS ITY(S LUG/ CU FT) 

RHO = P * 144 . /( 32. 2*R*T) 

IF (IPT) 104,104,105 
C STAGNATION CONDITIONS 

104 T Z=T 
RHOZ=RHO 
PZ=P 

GO TO 106 

C FREE STREAM CONDITIONS 

105 T1=T 
P1=P 

RHO l =RH0 

106 CONTINUE 

CALL ISTROP (GAMMA, FM1, PI, PZ, P10PZ, IPT ) 

C PRINT OUT INPUT VARIABLES 

CALL PINPUT (RM1, GAMMA, IPT,T,P, AM W , TREF , VRE F , XL , S, TWALL , CP ,PR ) 
WRITE (6,124) XL 
I TY P2=0 

C CONVERT ANGLES TO RADIANS 

TH2SV = THE TA2 
BT 2SV = BE I A 2 
SVI NCR = TI NCR 
T INCR=TlNCR/57. 296 
THETA2=THETA2/57 .296-TINCR 
THETA3=THETA3/57.2S6-TINCR 
BETA2=BET A2/57.296-T INCR 
BETA3=BETA3/57. 296-TINCR 
TH3SV=THET A3 
BT3SV=BETA3 
T I NCR3=T INCR 

o©Qoo©ooooe«o©ecoeGoo«Joeeooo©o<ie«*ccoooeooeooo©ee<i«<io©ooo<,e«oe 

BEGIN DO LOOP TO INCREMENT THETA2 
DO 121 11=1, N2 

CALC NEEDED VALUES IN REGION 2 
IF ( ANGLE2.NE.BETA ) GO TO 107 
BETA2 = BETA2+SIGN*T INCR 
T HE TA2=FTHETA( GAMMA ,RM1 ,BE TA2) 

GC TC 108 

7 THETA2=THE TA 2+S I GN* T I NC K 
I ERR0R=1 

BETA2=FINDB( GAMMA , R M 1 , THE TA2 , 1 , 1 E R P CR ) 

IF ( IERR0R.GT.2) GO TO 122 

8 SINB=SIN( BETA2) 

P20P1 = PRAT IG( GAMMA, RMUSINB) 

RM2=F I NDM ( G AMMA , RM1 , S INB , BE T A2 , TH E TA2 > 

THETA3=TH3SV-THETA2 
BE TA3=BT3SV-THETA2 
ISW 3= 0 


BEGIN DO LOOP TO INCREMENT THE TA 3 


DO 120 1=1, N3 
IF (ISW3.LT.0) GG TO 121 


A 61 
A 62 
A 63 
A 64 
A 65 
A 66 
A 67 
A 68 
A 69 
A 70 
A 71 
A 72 
A 73 
A 74 
A 75 
A 76 
A 77 
A 78 
A 79 
A 80 
A 81 
A 82 
A 83 
A 84 
A 85 
A 86 
A 67 
A 83 
A 89 
A 90 
A 92 
A 93 
A 94 
A 95 
A 96 
A 9 7 
A 98 
A 99 
A 100 
A 101 
A 102 
A 103 
A 104 
A 105 
A 106 
A 107 
A 108 
A 109 
A 110 
A 111 
A 1L2 
A 113 
A 114 
A 115 
A 116 
A 117 
A 118 
A 119 
A 120 
A 121 
A 122 
A 123 
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109 


110 


111 


12 


13 


114 


If ! ANGLE 3. NE . BE TA ) GC TO 110 A 

BET A3 = BET A3+SIGN3*T INCR3 A 

IF ( BE TA3. LT. 0. ) GO TO 120 A 

TEETA3=FTHETA(GAMMA,RM2»BETA3! A 

GO TO L 1 1 A 

THETA3=THETA3*S IGN3*T INCR3 A 

IF ( THETA3. LT.O. ) GC TO 120 A 

IERRCR=1 A 

BET A3 = F I NDB( GAMMAs RM2, THE TA3 , 1 , I ERROR ) A 

IF (IERRUR.GT.2) GC TO 112 A 

SINB = SIN(8ETA3) A 

T2DEG=THET A2*57.296 A 

T3DEG=THE TA3$57.296+T2DEG A 

P3CP2=PRATI0(GAMMA,PM2,SINB) A 

RM3=FINDM(GAMMA ,RM2 , S I NB , BE TA3 , THE TA3 ) A 

.......ee........................... a........ ........ A 

A 

ITERATE ON THETAF UNTIL P5 = P4 A 

A 

.4. A 

THETAF =0. A 

BETA4= 1.5708 A 

IERR0R=1 A 

CALL TYP4 ( THETAF, BE TA4 , RM2 ,RM3 , THETA 3 .THETA5 ,BETA5» P3 0P2 , GAMMA, TO A 
1L» I ERROR) A 

IF ( IERR0R.GT.2) GO TO 112 A 

IF (ISW3.EQ.0J GO TO 114 A 

ITERATION ON THE TA 3 HAS BEGUN. A 

* A 

INCREMENT THE TA 3 A 

T INCR3=TINCR3/2 . A 

SIGN3= 1. A 

IF (TINCP3.GT.TaL) GO TO 109 A 

I SW3=- 1 A 

GO TO 114 A 

DECREASE THETA3 A 

T INCR3=TINCR3/2. A 

SI GN3 = -1 . A 

I SW 3= i A 

IF (TINCR3 .GT.TOL) GC TO 109 A 

IF (TINCR3.LT. l.E-10) GO TO 113 A 

I SW3=-1 A 

GO TO 109 A 

THDEG=THET A3*57.296 A 

J = 3 A 

WRITE (6,140) J , T HDEG, RM2, RM 3 A 

GO TO 121 A 

.....so.............. ...... .......... ................... .......... A 

A 

CALC AND WRITE RAT ICS FOR POINTS 1-5 A 

A 

...... a....... ..................... ............................... A 

CONTINUE A 

WRITE (6,125) T2DEG,T3DEG A 

WRITE (6, 132) A 

I C-2 A 

CALL OBLIQ ( G AMMA , RM 1 , THE TA2 , BE TA 2 ,RM2 ,P20P L , L ,2 , I 0) A 

CALL OBLIQ ( G AMM A , BM2 , A BS (THET A3 i , BET A 3, RM3, P 30P 2» 2, 3, 10 ) A 

10=1 A 

CALL OBLIQ (GAMMA, RM2 , A BS ( THET A F ) , 8ETA4,RM4, P 4GP 2, 2, 4,10) A 

CALL OBLIQ ( GAMMA , RM3 ,AB S ( TH E TA5 > , BET A 5, RM5 , P50P3 , 3 , 5 , 10! A 

CALL MLTRT (P30P2, P20PI.P30P1, 1,3, 10) A 


12 5 
126 

127 

128 

129 

130 

131 
1 32 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

1 47 

148 

149 

150 

151 

152 

153 

154 

155 
1 5o 
L 5 I 
153 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 
1 73 

174 

175 

176 

in 

178 

179 
1 80 
1 81 
182 
133 
184 
1 85 
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CALL MLTRT < P40P2 , P20PL , P40PI , 1 ,4 , I 0) 

CALL MLTRT ( P5QP3, P30P1, P50P 1, 1, 5, 10) 

THE TA6 = THE TA5 
I ERR0R=1 

BE TA6=FI NDB (GAMMA, RM5 .THETA6 , 1 , I ERROR) 

IF ( I ERROR .GT .2 ) GC TO 119 
ITYP2=4 

C CALC AND WRITE RATIOS FOR 6/ 5 AND 6/1 

10 = 1 

CALL OdLIQ (GAMMA, RMS, T HET A6, BE TA 6 ,RM 6,P 60P 5 , 5,6,10) 
CALL MLTRT ( P6CP5 , P5CP1 , P60P1 , l ,6 , 10) 
P60P3=P60P5*P50P3 
115 CONTINUE 


PRINT RELATIVE, ABSOLUTE ANGLES AND MACH NUMBER AT POINTS 2-5 


WRITE (6,133) 

THDEG= THETA 2*AR 
BETDEG = BET A2*AR 
ABST H=THDEG 
ABS BT = BET DEG 
J = 2 

WRITE (6,134) J.THDEG, BETDEG, ABS T H, ABS B T , RM 1, RM 2 
THDEG=THE TA3*AR 
BETOEG=BET A3*AR 
ABSTH-AR*( THE TA3 + THE TA2) 

ABSBT = AR*(THET A2+BETA3) 

J = 3 

WRITE (6,134) J.THDEG, BETDEG, ABSTH , AB SBT , RM2 , RM3 

THET A4=THETAF 

THDEG=AR*THETA4 

IF (THETA4.LT .0) BE TA 4= 3. 14 1 59-BE TA4 

BETDEG=AR*BETA4 

ABSTH = AR*{ THETA 4 + THE T A2) 

A8SBT = AR* < PETA4+THETA2) 

J = 4 

WRITE (6,134) J, THDEG, BETDEG, ABSTH, AB S BT , RM2, RM4 
THDEG=-AR*THE TA 5 
BETDEG=-AR*BETA5 
ABSTH=AR*( THE TAF + THETA2) 

T5ABS= ABSTH 

AB SB T=AR* ( THE TA 2 + THE TA3-BE TA5 ) 

J=5 

WRITE (6,134) J, THDEG, BETDEG, ABSTH, ABSBT, RM3, RM5 
PRINT THETA6 AND BETA6 IN REL AND-ABS DEGREES 
THDEG=THETA6*AR 
BET DEG=BET A6<“AR 
ABSTH=T5ABS+AR*THETA6 
IF (BETA6.EQ. 1.5708) GO TO 116 
ABSBT=T5ABS+AR*BETA6 
RM= RM 5 
GO TO 117 
16 RM=RM 3 

ABSBT=ABSTH+BETDEG 
1 7 J = 6 

WRITF (6,134) J, THDEG, BETDEG, ABSTH, ABSBT, RM,RM6 


CALC AND WRITE ABSOLUTE VALUES FOR P, T , DENS I T Y , VE L , V I SC , RE YNGLOS 


A 186 

A 187 
A 188 
A 189 
A 190 
A 191 
A 192 
A 193 
A 194 
A 195 
A 196 
A 197 
A 198 
A 199 
A 200 
A 201 
A 202 
A 203 
A 204 
A 205 
A 206 
A 207 
A 208 
A 209 
A 210 
A 211 
A 212 
A 213 
A 214 
A 215 
A 216 
A 217 
A 218 
A 219 
A 220 
A 221 
A 222 
A 223 
A 224 
A 225 
A 226 
A 227 
A 228 
A 229 
A 230 
A 231 
A 232 
A 233 
A 234 
A 235 
A 236 
A 237 
A 238 
A 239 
A 240 
A 241 
A 242 
A 243 
A 244 
A 245 
A 246 
A 24 7 
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c 


c 

c 


c 


c 

c 


•s © e a © g oeee©aa©©oe‘a©«©e©®@«io«i 

WRITE (6,135) 

WRITE (6,136! 

V1SC1=VISCJ( VREF.TREF.Tl, S) 

A 1= SORT ( 32. 24GAMMA* R* Tl ) 

U1=A1*RM1 

RE Y 1=RHQ 1* U1 /VI SCI 
J=1 

WRITE (6,139) J,PI,RH01,T1,AI,U1,VISC1,REY1,RMI 
10=1 


J=2 

CALL ABSVAL 
J=3 

CALL ABSVAL 
J = 4 

CALL ABSVAL 
J = 5 

CALL ABSVAL 
J = 6 


(P20P1 ,Pl,P2,VREF, TREE ,S,J ,I0,RM2) 
(P30PI ,P1,P3,VREF,TREF,S, J , IU,RM3) 
(P4GP1 ,P1,P4,VREF,TREF,S, J, I0.RM4J 
(P50P1 ,Pl,P5,VREF,TREF,S, J.IU.RM5) 


CALL ABSVAL < P6 DPI , P 1 , P6 , VRE F , THE F ,S , J , 10, RM6 ) 
WRITE (6,138) 


J=1 

WRITE (6,137) J » PZ » RHOZ ,TZ 

CALL ISTROP (GAMMA,FM2,P2,PZ2,P30PZ2,2) 

PZ20Z=PZ2/PZ 

J=2 

WRITE (6,137) J.PZ2 , RH0Z2 , TZ2 , PZ2 0 Z 
CALL ISTROP (GAMMA,RM3,P3,PZ3,P30PZ3,3) 
PZ30Z=PZ3/PZ 


J=3 

WRITE (6,137) J,PZ3,RH0Z3,TZ3,PZ30Z 
CALL ISTROP ( GAMMA , RM4,P4»PZ4,P40PZ4,4) 
PZ40Z=PZ4 / PZ 


J=4 

WRITE (6,137) J , PZ4 , RHQZ4.T Z4, PZ40Z 
CALL ISTROP (GAMMA,RM5,P5»PZ5»P5GPZ5,5) 
PZ50Z=PZ5/PZ 
J=5 

WRITE (6,137) J,PZ5,RH0Z5,TZ5,PZ50Z 


CALCULATE AND WRITE STANTON NUMBER, FLAT PLATE HEAT TRANSFER 
COEFFICIENT (HFP ), AND HEATING RATE(QFP) IN REG I UN 2 


J = 1 IS LAMINAR AND J=2 IS TURBULENT 
DO 118 J= 1 , 2 
RECOVERY TEMPERATURE 
Tk(J)=T3+RR< J)*(TZ-T3) 

ECKERT*S REFERENCE TEMPERATURE 
T3STAR(J )=.5*(TWALL+T3)+.22*(TR(J )-T3) 
RH03STR(J)=144.*P3/(32.2*R*T3STAR(J)) 

V3 ST AR ( J ) = VISCJ ( VREF,TREF»T3STAR, S) 

RE Y3STR( J) =RH03STR(J)*U3*XL/V3STAR (J) 

LOCAL INCOMPRESSIBLE STANTON NUMBER IN REGION 2 AT IMPINGEMENT 
CF 2= AA (J ) *REY3STR**RN (J) 

IF IJ.EQ.2) CF2=AA( J > *ALGG10 (REY3ST R) **RN ( J ) 

STN3( J )=CF 2*PR**(-2./3. ) 

COMPRESSIBLE FLAT PLATE HEAT TRANSFER COEF ( BT U/S EC-F T 2-R ) 
HFP(J) = STN3(J)^RH03STR ;{! U3*CP/778. 

FREE STREAM STANTON NUMBER 
STNK J 1 = 7 78. $HF P ( J ) /( RHOl^Ul^CP) 


A 248 
A 249 
A 250 
A 251 
A 252 
A 2 53 
A 254 
A 25 5 
A 256 
A 257 
A 258 
A 259 
A /toO 
A 2 b 1 
A 262 
A 263 
A 264 
A 265 
A 266 
A 267 
A 268 
A 269 
A 270 
A 271 
A 272 
A 273 
A 274 
A 275 
A 276 
A 277 
A 278 
A 279 
A 280 
A 281 
A 282 
A 283 
A 284 
A 285 
A 2 86 
A 287 
A 288 
A 289 
A 290 
A 291 
A 292 
A 293 
A 2 94 
A 295 
A 296 
A 297 
A 298 
A 299 
A 300 
A 301 
A 302 
A 303 
A 30 A 
A 305 
A 306 
A 307 
A 303 
A 309 
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C FLAT PLATE HEATING R AT E ( BTU/ S EC-FT 2 ) 

QFP ( J )=HFP( J)*( TR( J ) -TWALL) 

C MARKARI AN HEAT TRANSFER RATIOS 

HR ( J ) =P60P 3**PN( J( 

C PEAK HEATING RATE 

QPK ( J ) =HR ( J ) *QFP ( J ) 

C PEAK HEAT TRANSFER COEF 

118 HPK( J)=HFP(J)*HR(J) 

WRITE (6,126) 

WRI TE (6,127) QFP(l) ,HFP(1) , STN3 ( 1 ) , ST N1 ( U , P60P3 , HR ( 1 ),QPK( 1), HPK 
1(1) 

WRITE (6,128) QFP(2),HFP(2),STN3(2)»STN1(2), P60P3 , HR ( 2 ) , QPK (2 ) , HPK 
1(2) 

WRITE (6,129) 

C 

GO TU 120 

C BECAUSE OBLIQUE REFLECTION NOT POSSIBLE BETWEEN 4 AND 6 USE NORMAL 

C SHOCK RELATIONS BETWEEN 6 AND 3 

119 RM3SQ=RM3*RM3 
BET A6=l . 5708 
WRITE (6,130) 

P6GP3=1.+2.*GAMMA/ ( GAMM A+l . ) *<RM3SQ- l . ) 

RH0603=( G AMMA+1 . ) *R M3SQ/ ( (GAMMA-1. ) *RM3SQ+2 . ) 

T6 0T3= (2. *GAMMA*RM3S Q- ( GAMMA-1 .))*(( GAMMA- 1. ) *RM3SQ+2. ) 
T60T3=T60T3/( ( GAMMA+ 1. ) **2*RM3SQ) 

A6 0A3 = ARAT 1 0 (T60T3 ) 

RM6=SQRT( ( (GAMMA- 1. )*RM3SQ+2. ) / (2 • * GAMMA* RM3S G~ (GAMMA-1 . ) ) ) 

U6 003= A6 0 A3* PM6/ RM3 

WRITE (6,131) P60P3 »RHU6U3 , T60T3, A60A3 ,U60U3 
CALL MLTRT ( P60P3, P30P1, P60P 1, 1, 6, 10 ) 

I SW6=~2 
GO TO 115 

120 CONTINUE 

C HAVE FINISHED INCREMENTING THETA 3 

121 CONTINUE 

C HAVE FINISHED INCREMENTING THETA2 

GO TO 101 

122 THDEG=THETA2*57.296 
J= 2 

WRITE (6,1401 J»THDEG»RM1 
GO TO 101 
C 

123 FORMAT (1H1.33H TYPE 5 SHOCK IMPINGEMENT PATTERN//11H RUN NUMBER, 2 
1X.F5.2,/ ) 

124 FORMAT ( 16H XL( WALL LE NG TH ) , 1 5X ,F 15. 6 , 4H FT) 

125 FORMAT (1H1.20H INPUT VARIABLES ARE/8H THE TA 2= , F 9. 4, 1 3H DEG, THETA 
13= , F 9. 4, 4H DEG) 

126 FORMAT (// 14H HEAT T RANSFER, / 17X, 1HQ , 14X, 3HHF P , 12X, 8H STANTQN3 ,7 X,8 
1HSTANTCN1 ,7X,5HP6/P3 , 10X ,2HHR , 12X ,3 HQPK , 12X , 3HHPK ) 

127 FORMAT (8 H L AM I N AR , 2X , 8 ( E 15. 5 ) ) 

128 FORMAT (10H TURBULENT ,8 (E15 .5 ) ) 

129 FORMAT (1H0.41HHFP = HEAT TRANSFER COEF(BTU/SQ F T-SEC-R) /3 5H Q 
1 HEAT TRANSFER (BTU/SQ FT-SEC)) 

130 FORMAT ( / IX, 82HSH0CK REFLECTION NOT POSSIdLE AT THIS POINT - NORMA 
1L SHOCK BETWEEN 6 AND 3 ASSUMED/) 

131 FORMAT ( IX, 6HP6/ P 3= , F 8.4, 5 X, 7HRH06/3= ,F 8.4 , 5X ,6HT6/ T 3= ,F 8 .4, 5 X, 6H A 
16/A3=,F8.4,5X,6HU6/U3=,F8.4) 

132 FORMAT « / / IX , 10HRA T 1 0 S ARE/) 

133 FORMAT ( / / 1 2 X , 1 4 HR E L AT I VE ANGL E , 10X, 14 HABSOLU TE ANGLE, /9X, 5HTHETA, 

18X,4HBETA,7X, 5HTHE TA, 8X , 4HBE T A , 30H UPSTREAM MACH LOCAL MACH) 

L 34 FCRMAT { LX , 1 1 ,4 F12 .4, 2F15 .4 ) 

135 FORMAT ( //7H REGION , 11 X , TH P , 12 X , 3H RHO , 1 1 X , 1 HT , 1 1 X , 1 H A , 1 1 X , 1HU, 13X, 


A 310 

A 311 
A 312 
A 313 
A 314 
A 315 
A 316 
A 317 
A 318 
A 319 
A 320 
A 321 
A 322 
A 323 
A 324 
A 325 
A 326 
A 327 
A 328 
A 329 
A 330 
A 331 
A 332 
A 333 
A 334 
A 335 
A 336 
A 337 
A 338 
A 339 
A 340 
A 341 
A 342 
A 343 
A 344 
A 345 
A 346 
A 347 
A 348 
A 349 
A 350 
A 351 
A 352 
A 353 
A 354 
A 355 
A 356 
A 357 
A 358 
A 359 
A 360 
A 361 
A 362 
A 363 
A 364 
A 365 
A 366 
A 367 
A 368 
A 369 
A 370 
A 371 
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1.2HMU » 3X» 1 1 HR EY NOL DS N0,9H MACH NO) 

136 FQKMAT ( 15X, 3HPSI ,4 X , 1 1H SLUG S/C U FT ,5X , 7HR ANK I NE , 6X, 6 HFT / S EC, 6X , 6H 
1FT/SEC,4X, 11HSLUG/ FT-SEC, 11X, 4H1/ FT ) 

137 FORMAT (1X,I5,F12.4,E15.5,3F12.4,2E15.5) 

138 FORMAT {/ IX , 25HS T AGN AT ION CONDITIONS ARE/7H R EG! UN , l IX , 1HP , 12 X , 3HR 
1HO, 11X.1HT, 8X,4HP/P0/15X,3HPSI ,4X , 1 1HS LUGS / CU FT , 5X , 7 HRANK. INE ) 

139 FORMAT ( IX , 1 5 , F 1 2 . 4 , E 15 . 5, 3F 1 2. 4, 2E 15 . 5 , F 8. 4 ) 

140 FORMAT (1H0.46HNG SOLUTION FOUND GIVEN THETA AND MACH NUMBER ,10HP 
1 OR REGION, I2,10X,3F10.4) 

END 


A 3 72 
A 373 
A 3 74 
A 375 
A 376 
A 377 
A 378 
A 379 
A 380 
A 381- 
6 1 


USAGE 

Program SHOCK for a type V interference pattern uses the standard FORTRAN 
NAMELIST input with $DATAIN as the NAMELIST name. The input includes the flow 
conditions, gas properties, impinging flow deflection or shock angle, and impingement 
location on the body. The program can increment the shock generator angle and the body 
angle. 

A description of the input and output variables and a sample case are presented. 

Input Description 

The $DATAIN input for type V is as follows: 


RUN 

run number for identification 

RM1 

Moo, free -stream Mach number 

GAMMA 

Cp/c v , ratio of specific heats 

THETA2 

shock generator angle, deg 

BETA2 

|3^, impinging shock angle, deg 

ANGLE 2 

THET if 6 i input; BETA if 0 

THETA3 

0 b , body angle, deg 

BETA3 

0 b , bow shock angle, deg 

ANGLES 

THET if 6 b input; BETA if f 
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TINCR 


increment for anc * 0 k, deg 


N2 number of times to increment 6 ^ 

N3 number of times to increment 0^ 

TOL acceptable tolerance for equal pressures (0.001) 

IPT initial point; 0 for stagnation conditions, 1 for free -stream static 

conditions 

T temperature at IPT, °R 

P pressure at IPT, psia 

AMW molecular weight (used to compute gas constant) 

TREF reference temperature for computing viscosity, °R 

VREF reference viscosity for computing viscosity, slugs/ft -sec 

XL Xi, distance from leading edge to impingement point, ft 

S Sutherland's constant in viscosity equation 

TWALL temperature at wall, °R 

CP Cp, specific heat at constant pressure, ft-lbf/slug-°R 

PR Np r , Prandtl number 

Output Description 

The output consists of printing only. A heading and pertinent input are printed for 
identification before the calculations. 

RUN NUMBER run number for identification 

Ml Moo, Mach number in free stream 
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GAMMA (CP/CV) 

TEMP AT POINT "IPT” 
PRES AT POINT "IPT" 
MOLECULAR WEIGHT 
REFERENCE TEMP 
REFERENCE VISCOSITY 
S(SUTHERLAND NUMBER) 
TEMP AT WALL 
CP 

PRANDTL NUMBER 
XL (WALL LENGTH) 
THETA2 
THETA3 
P2/P1, etc. 

RH02/1, etc. 

T2/T1 , etc. 

A2/A1, etc. 

U2/U1 , etc. 

RELATIVE ANGLE 
THETA 


ratio of specific heats 
input as T, °R 
input as P , psia 

molecular weight (used to compute gas constant) 
reference temperature for computing viscosity, °R 
reference viscosity for computing viscosity, slugs/ft-sec 
Sutherland's constant in viscosity equation 


T w , °R 

Cp, specific heat at constant pressure, ft-lbf/sIug-°R 
N pr , Prandtl number 

Xj, length from leading edge to impingement point, ft 
0i, shock generator angle, deg 


0 b , body angle, deg 

Pg^Pi, etc., pressure ratios for regions listed 
pg/'Pj, etc., density ratios for regions listed 
T 2 /T ^ , etc., temperature ratios for regions listed 
a 2/ a l’ e ^ c *» ra -ti° s of speeds of sound in regions listed 
Ug/Uf, etc., velocity ratios for regions listed 


flow angle relative to flow in upstream region, dei 
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BETA 


shock angle relative to flow in upstream region, deg 


ABSOLUTE ANGLE 
THETA 
BETA 

UPSTREAM MACH 
LOCAL MACH 
REGION 
P 

RHO 

T 

A 

U 

MU 

REYNOLDS NO 
MACH NO 


flow angle relative to free -stream flow, deg 

shock angle relative to free -stream flow, deg 

Mach number in upstream region 

local Mach number 

region in shock pattern 

static pressure in region, psia 

static density in region, slugs/ft ^ 

static temperature in region, °R 

speed of sound in region, ft/sec 

velocity in region, ft/sec 

static viscosity in region, slugs/ft-sec 

Reynolds number per foot in region 

Mach number in region 


P 

RHO 

T 

P/PO 

100 


The following stagnation conditions are then listed: 

total pressure in region, psia 

O 

total density in region, s lugs/ft ° 
total temperature in region 


ratio of total pressure in region to free -stream total 
pressure 



as 


The peak pressure ratio and heat transfer for laminar and turbulent flow are listed 


Q 


heat -transfer rate, Btu/ft^-sec 

HFP 


flat -plate heat -transfer coefficient, Btu/ft^-: 

STANTON3 

local incompressible Stanton number 

STANTON1 

compressible free -stream Stanton number 

P6/P3 


peak pressure ratio 

HR 


Markarian heat -transfer ratio 

QPK 


peak heating rate 

HPK 


peak heat -transfer coefficient 



Sample Case - Input 

iDATA IN 



AMI 

= 

0. 6E+0 1 s 

GAMMA 

= 

0. 14E+01 , 

THETA2 

= 

0.5E+01, 

r her a 3 

= 

0.33E+0 2, 

T I NCR 

= 

0.5E+0 1, 

N 2 

= 

1. 

N 3 

= 

1, 

TQL 

= 

0. IE-02, 

ANGLE2 

= 

0.6940 472 3 76 5109E+93, 

ANGLE '3 

= 

0.694047237&51C9E+93, 

BETA2 

= 

0.0, 

BETA3 

= 

0 . 3 E +0 1 , 

IPT 


0, 
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T 

SE 

Q . 9 E +0 3 » 

P 

= 

0.4E+03, 

A MW 

= 

0.2897E+02. 

TREF 

= 

0.53E+03, 

VREF 

= 

0.3801 E-06t 

XL 

= 

0.25E+00, 

S 

= 

0. 1986 E+03. 

TWALL 

= 

0.55E+03, 

CP 

= 

0. 6006E+04« 

PR 

= 

0.72E+00, 

RUN 

= 

0. 1E+01, 

$ END 




Sample 


TYPE 5 SHOCK IMPINGEMENT PATTERN 
RUN NUMBER 1.00 


INPUT VARIABLES ARE 


Ml 

GAMMAICP/CV) 

TEMP AT POINT 0 
PRES AT POINT 0 
MOLECULAR WEIGHT 
REFERENCE TEMP 
REFERENCE V ISCOSI TY 
SISUTHERLAND NUMBER) 
TEMP AT WALL 
CP 

PRANUTL NUMBER 
X L( WALL LENGTH) 


6.000 

1.400000 

900.000000 

400.000000 
28.970000 

530.000000 
3.801000E— 07 

198.600 

550.000 

6006.000 

.720000 

.250000 


Case - Output 


RANKINF 
PS I 

RANKINE 
SLUG/ I FT-SEC ) 

RANKINE 

FT-LBF/I SLUG-RANKINE) 
FT 
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INPUT VARIABLES ARE 

¥HETA2= 5*0000 DEG* T HET A 3= 35.0000 DEG 


RATIOS ARE 


P 2/ P 1 = 2.0103 

RHQ2/1 = 

1.6306 

T2/T1= 

1.232 8 

A <?/ A L — 

1.1103 

U2/U1= 

.9837 

P3/P2- 14.4557 

RH03/2 = 

4.2890 

T3/T2= 

3.3704 

A3/A2= 

1.8359 

U3/U2= 

.7619 

P 4/ P 2= 32.6463 

RH04/2 = 

5.0944 

T4/T2- 

6.4083 

A4/A 2= 

2.5315 

U4/IJ2= 

.207 4 

P5/P3 = 2.2584 

RH35 /3= 

1.7619 

T5/T3= 

1.2818 

A5/A3- 

1.1322 

U5/U3= 

.8429 

P 3/P 1 = 29.0599 

RH03/1= 

6. 9937 

T3/T1= 

4.1552 

A 3 / A J = 

2.0384 

U3/U1= 

. 7495 

P4/Pi= 65.6280 

RHQ4/1 = 

8. 3069 

T4/T1= 

7.9004 

A4/ A 1- 

2.8108 

U4/U1= 

. 2040 

P5/P1= 65.6287 

RH05 / 1= 

12.3221 

T5/T 1= 

5.3261 

A5/ A 1= 

2.3078 

U5/Ul= 

.6318 

P6/P5= 2.1516 

RH06/5= 

1. 7064 

T6/T5= 

1.2609 

A6/ A5- 

1.1229 

U6/U5- 

.7186 

P6/P 1-141.2090 

RH06 /1= 

21.0261 

T6/T1= 

6.7159 

A6/ A l- 

2.5915 

U 6/Ul= 

. 4540 



RELATIVE ANGLE 

ABSOLUTE ANGLE 




THETA 

SETA 

THETA 

BETA 

UPSTREAM MACH 

LOCAL MACH 

2 

5.0000 

13. 1598 

5.0000 

13.1598 

6.0000 

5.3157 

3 

30.0000 

41.7590 

35.0000 

46.7590 

5.3157 

2.2062 

4 

15.2998 

86.08 70 

20.2998 

91.0870 

5.3157 

.4355 

5 

-14. 7002 

-40.8059 

20.2998 

-5.8059 

2.2062 

1.6426 

6 

14.7002 

59.11 59 

35.0000 

79.4157 

1.6426 

1.0512 


REGION 

p 

RHO 

T 

A 

U 

MU 

REYNOLDS NO 

MACH NO 


PS] 

SL UGS/CU FT 

RANKINE 

FT/SEC 

FT /SEC 

SHJG/FT-SEC 

1/FT 


i 

.2533 

1. 93 645E-04 

109.7561 

513.6679 

3081.4074 

3.46377E-08 

7.05004F+06 

6.0000 

2 

.50 93 

3. 15760E-04 

135.3111 

570.2302 

3031.1919 

1 .06990E-07 

8.94597F+06 

5.3157 

3 

7. 3622 

1. 3542 9E-03 

456.0559 

1046. 8696 

2309.6012 

3.37666E— 07 

9.263206*06 

2.2062 

4 

1 6.6265 

1. 60859E-03 

867.1188 

1443.5201 

£28.6374 

5.43812E— 07 

1 .859506+06 

.4355 

5 

16.6267 

2. 386 10E- 03 

584.5741 

1185. 2319 

1946.8091 

4.0961 3E-07 

1.1 3407E+07 

1.6426 

6 

35.7745 

4'. 07 16 IE- 03 

737. 1088 

1330.9120 

1399.0370 

4.85434E— 07 

1.17345F+Q7 

1.0512 

STAGNATION CONDITIONS ARE 







R EG ION 

P 

RHO 

T 

P/PO 






PSI 

SL UGS/CU FT 

RANKINE 






1 

40 0.0000 

3. 72856E-02 

900.0000 






2 

386.5123 

3. 602 8 OE- 02 

900.0088 

.9663 





3 

79.48 88 

7. 40940E-03 

900.0089 

. 1987 





4 

18.9404 

1. 7654SE-03 

900.0088 

.0474 





5 

75.2889 

7. 01791E— 03 

900.0089 

. 1882 






HEAT TRANSFER 








Q 

HFP 

STANTnN3 

STANTONl 

P6/P3 

HR 

QPK 

LAMINAR 

1.80333E+00 

6.37771E-03 

3.39326F-04 

1.3845 3F-03 

4.85924E+00 

7 . 68551E £00 

L. 38595E + 01 

TURBULENT 

1.19 347E+01 

3. 92648E-02 

2.08909F-03 

8.52398E— 03 

4* 85974E+00 

3.833396*00 

4.57504E+01 

HFP = HEAT 

TRANSFER CUE F( BTU/SC FT-SEC-R1 






0 “HEAT 

TRANSFERIBTU/SU 

FT-SEC) 







O 

CO 


HPK 

4.90159E-G2 
1. 5051 7£— 01 



PART vr _ TYPE VI INTERFERENCE 


PROBLEM DISCUSSION 

Type VI interference involves the intersection of two weak shocks of the same 
family, which leads to the entirely supersonic flow field shown in figures 1(f) and 10. 

The expansion fan emanating from this intersection interacts with the boundary layer at IP 
and results in a local decrease in pressure and heating. A study of this type of interfer- 
ence is important because it provides a means for predicting the onset of type V, which 
does lead to significant increases in local heating. 

The flow conditions in region 3 are determined by using the oblique -shock relations 
of reference 6 and the specified free -stream conditions and flow angle or shock 
angle 0^ in a manner similar to that for type I. Once the body angle 6 ^ is specified, 
the flow in region 4 is calculated. An iterative scheme is used to determine the location 
of the bow shock that separates regions 1 and 2 so as to satisfy continuity of the pres- 
sures and flow direction across the shear layer between regions 2 and 5. The flow from 
region 4 must pass through an expansion fan to turn parallel to the shear layer. The 
relations for a Prandtl-Meyer expansion from reference 6 are used in the above iteration 
to go from region 4 to region 5. In order to turn parallel with the surface, the flow passes 
through a series of reflected expansion waves in going from region 5 to region 6. For low 
Mach numbers and small turning angles, the total reduction in pressure from region 4 to 
region 6 at the wall is approximately twice the decrease across the first expansion fan. 
(See p. 451 of ref. 7.) 

The heat -transfer relation (eq. (1)) is used to calculate the reduction in heating 
with P0/d?4 ui-ffed as the pressure ratio. This expression can be used since it has been 
shown in references 2 and 19 that the equation gives good predictions of the heating 
reduction for laminar and turbulent expansion -fan — boundary -layer interactions. 

PROGRAM DESCRIPTION 

The main program reads the input, calls the various subprograms, and computes 
the heat transfer. FTHETA is called to compute the flow angle and FINDB is called to 
compute the shock angles in each region. The subprograms OBLIQ, FINDM, PRATIO, 
MLTRT, ABSVAL, and ISTROP compute flow variables and ratios of the flow variables. 
PINPUT prints the input variables. The flow charts and listings of these subprograms 
are presented in part VII. TYP6 using EXPNS calculates the deflection angle of the 
shear layer. The flow diagrams and listings for the main program, TYP6, and EXPNS 
follow. 


1 04 
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Program Listing — Main 


PROGRAM SHUCM INPUT, OUTPUT, T APE5=i NPOT , TAP£6= OOTPOT ) A 1 

C a...... ...... ..a..®.®...®®.®..®*®.®*.®®*®®®®® A 2 

C A3 

C PURPOSE A 4 

C THIS PROGRAM PERFORMS A TYPE VI SHOCK INTERFERENCE PATTERN A 5 

C FOR TWO UI MENS IONAL FLOW A 6 

C A 7 

i. .....ae..®.®.®®®®®.®.®.©®.®®®®®.®®.®®®®®®.®®®®.®®®®®®.®®®®®®®®®.®® A 3 

COMMON PZ, RH02 » TZ, P 1UPZ , RHOlOZt TIOTZ. A 9 

1 PZ2, RH0Z2 i TZ2, P20PZ2, RH02Z2, J^CTL^, A 10 

2 PZ3, RH0Z3, TZ3, P30PZ3, RHG3Z3, T3CTZ3, A 11 

3 PZ4, RH0Z4 » TZ4, P40PZ4, RH04Z4, T4CTZ4, A 12 

4 PZ5, RHGZ5 1 TZ5 ? P50PZ5, RHC5Z5, T5CTZ5, A 13 

5 P20P1 , RH0201, T20T1, A20A1 S 02001, A 14 

6 P30P1, RH0301, T30T1, A3CA1, U30U1, A 15 

7 P40P3 * RH0403, T40T3, A40A3, U40U3, A 16 

8 P40P1 * RHG4D1, T40T 1 , A4CA1 « U40U1, A 17 

9 P5QP4, RH0504, T50T4t A50A4» 05004, A 18 

$ P50P1, RH0501 , T50T1 i A50A1. 05001, A 19 

$ Pi, RHQ 1 » Tl, Ai, 01, VISC1, REY1 , A 20 

$ P2 » RH02 , T2 , A 2, 02, VISC2, REY2, A 21 

$ P 3 , RH03 , T 3 , A3, 03, VISC3, REY3 , A 22 

$ P4, RH04 » T4 , A4, 04, VISC4, KEY4, A 23 

$ P 5 , RH05 , T5 , A5 , U5 , VISC5, REY5 A 24 

DIMENSION T4STARI2), RH04STR12), V4STARI2J, R EY4STRI2) , HR12), QFP A 25 

1(2), HPK( 2) , uPK ( 2 ) , STN4( 2) A 26 

DIMENSION STN1 ( 2 ) A 27 

DIMENSION P N ( 2 ) A 28 

DIMENSION A A ( 2 ) , RN(2) A 29 

DIMENSION RR12), TR(2), HFP(2) A 30 

NAMELIST /DATA IN/ RM 1 , G AMMA , T HE TAB , T HET A I , T I NCR, NT I ME S , I PT , T , P , AMW A 31 

1 ,TKEP , VRtF.XL .S.TwALL ,CP, PK»RON, ANGL E, ANGLE2, TOL A 32 

C SET CONSTANTS FOR STANTUN NOMBERS A 33 

BET A=4HBETA A 34 

PN(l)=i®2y A 35 

PN(2)=0.85 A 36 

AA( 1)=0.332 A 37 

AA(2)=. 185 A 38 

R N1 1 ) =— . 5 A 39 

RN I 2) -=- 2 . 584 A 40 

C CONVEkGENCE TEST FOR T HET AF A 41 

T 0L= .001 A 42 

NTI ME S= 1 A 43 

T INCR = 5 . A 44 

C A 45 

C A 46 

C INPOT DATA A 47 

C A 48 

U . oe.e. ......... ... a. ...e.oa.eoo. a a. ............ ....... A 49 

101 READ 15.DATAIN) A 50 

IF (ENOFILE 5) 102,103 A 51 

102 STOP A 52 

103 CONTINOE A 53 

WRI TE l 6 ,DAT AIN) 

RR( ii=SORT ( PR) A 54 

RR ( 2 ) ~ P R* * ( 1 . / 3 . ) A 55 

WRITE ( u, 133) RUN A 56 

THODEG=ThET A3 A 57 

THFOEG=THETA I A 58 
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THIFST=TH1DEG 
S INCR = T INCH 

C GAS CONSTANT (FT-LBF/LBM-R) 

R=1 544. 3/ AKW 

C DENSITY (SLUG/CU FT) 

RH0=P*144./ ( 32.2*R*T) 

IF (IPT) 104i 104, 105 
C STAGNATION CONDITIONS 

104 TZ=T 
RHOZ=RHG 
PZ=P 

GO TO 106 

C FREE STREAM CONDITIONS 

105 T1=T 
P1=P 

RH01=RH0 

GO ISENTR0P1CALLY TO EITHER FREE STREAM OR TO STAGNATION 
36 CALL ISTROP ( G AMMA , RM1 , P 1 , PZ , P10PZ , I PT ) 

PRINT OUT INPUT VARIABLES 

CALL PINPUT IRM1, GAMMA, IPT, T , P , AMW, T REF , VREF, XL, S , T WALL ,CP *PR ) 
CONVERT ANGLES TO RADIANS 
TING R= TIN CR/57.296 
THETAB=THBD EG/ 57.296 
THETAI=THETAI/ 57.296 
INPB 1=0 
I NPBB=0 
ISW = 0 

DO 113 1= 1 1 NT I ME S 

BET A I WAS INPUT INSTEAD OF THETAl 
IF ( ANGLE. NE. BETA ) GO TO 107 
B£TAI=THETAI 
INPBI =1 

THETAI=FTHETA(GAMMA,RM1, BET A I ) 

07 THIDEG=THETAI*57.296 
WAS 8ETAI INPUT 
IF I INPBI .GT.O) GO TO 10B 
BET A I=F INDB I GAMMA, RM1, THETAl ,1,1 ERROR) 

THETAl TOO LARGE 
IF ( IERROR. GT.2) GO TO 121 
OB RM3 = F I NDMIGAMMA, RM1,SINIBETAI),BETAI,T HET All 
IF 1ANGLE2.NE.BETA) GO TO 109 
BETAS WAS INPUT INSTEAD OF THETAB 
BETA4=+THBD EG/57 .296— THETAl 
INPBB=i 

THET AB=FTHETA C GAMMA, RM3, ABS( BET A4))+ THETAl 
09 CONTINUE 

THDEG=THETAB*57.296 

©©es©®©*#®® o o • ••••• • « « • oooooooo m • o a © o © © o o o © e o • • • 4 • • «•«•••«••••«••««« 

ITERATE ON THE TAF UNTIL P2=P5 


o© ® o ooo<9«eeo»9aooe« ©«©,»© ©o®® 

THET A4=THET A8-THET AI 
C INPUT ERROR IF THETA4 NEGATIVE 

IF (THETA4.LT. 0) GO TO 123 
IF ( INPBB.GT.O) GO TO liO 
BETA4=FINDB( GAMM A , RM3 , THE TA4 , 1, I ERROR) 

C THE TA4 TOO LARGE 

IF ( I ERROR. GT.2) GO TO 122 
110 RM4=FINDM(GAMMA,RM3, S INI BETA4) , BE T A4 , THET A4 ) 

P30P1=PRaTI 0SGAMMA,RM1 ,SIN(BETAI ) i 
P4QP3=PRAT I C( GAMMA, RM3,S INC BETA4) ) 


A 59 
A 60 
A 61 
A 62 
A 63 
A 64 
A 65 
A 66 
A 67 
A 68 
A 69 
A 70 
A 71 
A 72 
A 73 
A 74 
A 75 
A 76 
A 77 
A 78 
A 79 
A 80 
A 81 
A 82 
A 83 
A 84 
A 85 
A 86 
A 88 
A 87 
A 89 
A 90 
A 91 
A 92 
A 93 
A 94 
A 95 
A 96 
A 97 
A 98 
A 99 
A 100 
A 101 
A l 02 
A 103 
A 104 
A 105 
A 106 
A 107 
A 108 
A 109 
A 110 
A 111 
A 112 
A 113 
A 114 
A 115 
A 1 1 6 
A 117 
A 118 
A 119 
A 120 
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c 

c 

111 




P4GP1=P4UP3*P30PI 

P4=P40P1*P1 

CALL TYP6 < THET AF , BET A2 ,RM1 ,RM4 s RM5 , THETAB, PI » P4 , P5 , GAMMA , TOL , I ERR 
1QR, 0PTIGN,P2SJii 
WAS A SOLUTION FOUND 
IF ( I ERROR ) 111,111,115 


BEGUN 


HAS ITERATION ON THETAI 
IF 1 ISrt.EU.il GO TO 119 
HAS ITERATION ON THETAB 
IF ( ISrt -Eu.21 GO TO 116 
IF (ISn.LE.OJ WRITE 16,1041 
IF (ISrt. LE. 01 WRITE l6,lo5J 


BEGUN 


TH106G, T hdeg 


i o « e e < 


CALCULATl AND WRITE PARAMETER RATIOS FOR 2/1, 0/1, 4/3, 4/1 


10 = 2 

WRITE l 6, 124) 

THET A2=AbS( THETAF 1 

CALL ObLiu (GAMMA, RM1 ,ABS( THETA21 ,8ETA2,RM2,P20Pl,i,2, IC/21 
CALL OBLIU (GAMMA,RMl,ThETAI,BETAl,RM3,P30Pl, 1,3, 101 
CALL ObLiu (GAMMA,RM3,THETA4»8ETA4,RM4,P40P3,3,4»IQ) 

CALL MLTRT ( P40P3 , P 30P 1 , P40P1 , l, 4 , 1 1 


WRITE THETA AND BETA ANGLES ANO MACH NUMBER 


WRITE (6,1251 

THF0EG=THETAF*57.296 

THETA2=THETAF 

THUEG=THETA2*180./3.1416 

BETDEG=BETA2*lB0./3. 1416 

ABSTH=THFOEG 

ABSBT=6ET0EG 

J=2 

WRITE 16,1361 J, THDEGjBETDEG, ABSTH, ABS 8T , RM1, RM2 

THUEG= THETA 1*57.29 6 

BETUEG=bETAI*57.296 

ABSTH=THi OE G 

ABSBT=BETDEG 

J = 3 

WRITE (6,136) J,THUEG,BETDEG,ABSTH,ABSBT,RM1,RM3 

THUEG=THETA4*57.296 

BET0EG=BETA4*57.296 

ABSTH=THETAB*57.296 

ABSBT=BETDEGtTHIDEG 

6=4 

WRITE (6,138) J, THDEg,BETDEG, ABSTH, ABSBT.RM3, RM4 
THOEg=( THETAF-THETA4) *57.296 
ABSTH=THETAF*57.296 
J = 5 

WRITE (6,138) J,ThOEG,BETUEG, ABSTH, ABSBT,RM4, RMS 


CALCULATE ABSOLUTE VALUES FOR POINTS 0 THRU 4 


WRITE (6,I26i 
WRITE (6,127) 

VISC1 = VI SCJ 1 VREF ,TREF , T1 , S) 


A 121 
A 122 
A 123 

A 124 
A 125 
A 12 6 
A 127 
A 128 
A 129 
A 130 
A 131 
A 132 
A 133 
A 134 
A 135 
A 136 
A 137 
A 138 
A 139 
A 140 
A 141 
A 142 
A 143 
A 144 
A 145 
A 146 
A 147 
A 148 
A 149 
A 150 
A 151 
A 152 
A 153 
A 154 
A 155 
A 156 
A 157 
A 158 
A 159 
A 160 
A 161 
A 162 
A 163 
A 164 
A 165 
A 166 
A 167 
A 168 
A 169 
A 170 
A 171 
A 172 
A 173 
A 174 
A 175 
A 176 
A 177 
A 178 
A 179 
A 180 
A 181 
A 182 
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c 


c 

c 


c 


Ai=SQRr(32.2*GAMMA*R*Tl) 

Ul=Ai*RMi 

REY1=RHU1*U1/VISC1 

J=1 

WRITE (6*120) J,P1,RH01,T1,A1,U1,VISC1,REY1,RM1 
10=1 
J=2 

CALL A6SVAL ( P20P i , P 1 , P2 , VREF , TREE , S , J , 10 ,RM2 i 
J = 3 

CALL A6SVAL ( P30P I ,P 1 , P 3, VREF » THEE , S , J » 1 0 ,RM3 ) 
J=4 


CALL A8SVAL ( P40P 1 , P 1 ,P4 , VREF , TREF , S , J , 10 ,RM4 ) 

PZ404= 11. + ( GAMMA- 1 . ) *RM4*RM4/2. ) **( GAMMA/ (GAMMA-1. ) ) 

PZ4=PZ404*P4 

PZ5=PZ4 


T 25= T Z 

RH0Z8=PZ4*144./(32.2*R*TZ) 

CALL ISTKOP (GAMMA, RM5, P5, PZ5 ,P50PZ5 ,0) 

VISC 5= VIS CJ ( VREF , TREF ,T5,S) 

A5=SURT (32.2*GAMMA*R*T5i 
U5=A5*RM5 

REY5=RHO5*05/VISC5 

J=5 

WRITE (6,128) J,P5,RH05,T5,A5,U5»VI SC5,REY5,RM5 
WRITE (6,129) 

J = 1 

WRITE (6,128) J,PZ,KHOZ»TZ 
J=2 

CALL ISTRUP ( GAMMA, RM2,P2,PZ2 ,P20PZ2 , 2 ) 
PZ20Z=PZ2/PZ 

WRITE (6,128) J»PZ2,RH0Z2,TZ2,PZ20Z 
J=3 

CALL I S 1 ROP (gAMMA»RMj,P3,PZ3,P30PZ3,3) 
PZ30Z=PZ3/PZ 

WRITE (6,126) J,PZ3,RH0Z3,TZ3,PZ30Z 
J=4 

CALL 1ST ROP (GAMMA, RM4, P4» PZ4 , P40PZ4 , 4 ) 
PZ4UZ=PZ4/PZ 

WRITE (6,128) J , PZ4, RH0Z4 , TZ4 , PZ40Z 
J = 5 

PZ5UZ=PZ5/PZ 

WRITE ( 6, i.26) J,PZ5, RH0Z5 ,TZ5»PZ50Z 
P30P4=P5/P4 

PRESSURE UROP FOR REGION 6 IS SAME AS FOR REGION 5 
P6UP4=2.O*P50P4-1.0 


CALCULATE AND WRITE STANTON NUM86R, FLAT PLATE HEAT TRANSFER 
COEFFICIENT (HFP) , AND HEATING RATE(UFP) IN REGION 4 


« ooooeoee oeooooeooeo© «••*••«••••«•«• 

J = 1 IS LAMINAR AND J=2 IS TURBCLEN T 
DO 112 J=1 , 2 
RECOVERY TEMPERATURE 
TR(J)=T4+RR(J)*(TZ-T4) 

ECKERT^S REFERENCE TEMPERATURE 
T4STAR1 J)=.5*< TwALL-a-T2) + .22*'(TR(J)-T 2) 

RHU4STR (J) =144.*P4/(32.2*R*T4STAR(J ) ) 

V4STAR( J)=V ISCJ ( VREF, TREE, T4STAR,S) 

REY4STKI J )=RH04STR t J )*U4*XL/ V4ST.ARU i 

LOCAL INCOMPRESSIBLE STANTON NUMBER IN REGION 4 AT IMPINGEMENT 
CF2 = AA(U)*REY4STR**RN ( J) 


A 183 
A 184 
A 185 
A 186 
A 187 
A 188 
A 189 
A 190 
A 191 
A 192 
A 193 
A 194 
A 195 
A 196 
A 197 
A 198 
A 199 
A 200 
A 201 
A 202 
A 203 
A 204 
A 205 
A 206 
A 207 
A 208 
A 209 
A 210 
A 211 
A 212 
A 213 
A 214 
A 215 
A 216 
A 217 
A 218 
A 219 
A 22 0 
A 221 
A 222 
A 223 
A 224 
A 225 
A 226 
A 227 
A 228 
A 229 
A 230 
A 231 
A 232 
A 233 
A 234 
A 235 
A 236 
A 237 
A 238 
A 239 
A 240 
A 241 
A 242 
A 243 
A 244 
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IF U.EU.2) CF2=AAi J) *ALQG1Q( REY4STR ) **RN i J) A 243 

STN4 ( J ) =CF2*Pft*4 1-2. / 3. ) A 246 

C COMPRESSIBLE FLAT PLATE HEAT TRANSFER COEF { 8T U/ SEC-FT2-R) A 24 1 

HFP ! J I ~S T N4 I j J *RH04ST R*U4*CP/77B- A 248 

C FREE STREAM STANTON NUMBER A 249 

STNHJi=77a«*HFP(JI/(RHUl*Ui*CP) A 250 

C FLAT PLATE HEATING R A TE ( 8TU/S EC-FT 2 ) A 251 

QFP(J)=HFP(J)'MTR(U)-TWALL) A 252 

C MARKARI AN HEAT TRANSFER RATIOS A 253 

HR( J)=PoOP4**PN( J ) A 254 

C PEAK HEATING RATE A 255 

UPK( J)=Hk I J ) *wFP ( J ) A 256 

C PEAK HEAT TRANSFER COEF A 257 

112 HPK(J) = HFP(J)< t HR(J) A 258 

HR! TE (6,1301 A 259 

WRITE (6,131) yFP(l),HFP(U,STN4ili ,STN1(1) ,P60P4,HR(1),UPK(U,HPK A 260 

1(1) A 261 

WRITE (6,132) OFP ( 2) , HF P ( 2) , S TN4 (2) »STN1(2) ,PfaQP4,HR(2)»0PK(2J ,HPK A 262 

1(2) A 263 

IF { I SW« LT. 0) GO TO 114 A 264 

113 THETAI = THETAI4-TINCR A 265 

C RESTORE THETAI TO STARTING VALUE A 266 

114 T HIOEG=THIFST A 267 

T I NCR= S 1 NCR A 268 

GO TO 101 A 269 

C NO TYPE fa SOLUTION WAS FOUND. A 270 

115 IF (lSw.EU.O) WRITE (6,137) A 271 

I SW=2 A 272 

TINCR=T1NCR*»5 A 273 

THETAB = THETAB-T I NCR A 274 

IF (ABS( TINCR)-TOL) 118,107,107 A 275 

116 T 1NCR=T INCR^.5 A 276 

THETA B=THETAB+TI NCR A 277 

IF (ABS(TINCR)-TOL) 118,107,107 A 278 

117 THETAI=THETAI-TINCR A 279 

T INCR=T INCR/2. A 280 

IF (ABSIT INCR)-TOL) 118, 120, 120 A 281 

C ITERATION COMPLETE. DO CALCULATIONS FOR LARGEST THETAI A 282 

118 ISW=-1 A 283 

GO TO 107 A 284 

C ITERATION ON THETAI IN PROCESS. A 285 

119 TlNCR=TlNCR/2. A 286 

IF (ABS(TINCR)-TOL) 118,120,120 A 287 

120 THETAI=THETAI*TINCR A 288 

GO TO 107 A 289 

C THETAI TOO LARGE A 290 

121 GO TO 117 A 291 

C THETAB - ThETAl TOO LARGE A 292 

122 GO TO 117 A 293 

C THETAB LESS THAN THETAI A 294 

123 WRITE (6,136) A 295 

GO TO 114 A 296 

C A 297 

124 FORMAT (//12H RATIOS ARE /) A 298 

125 FORMAT < // 12X , 14HR EL ATI VE ANGLE , 10X , 14H ABSOLUT E ANGLE , /9X , 5HTHE T A , A 299 

ldX , 4HBET A , 7 X, 5HT hE TA , 8X, 4HBET A, 29H LP STREAM MACH LOCAL MACH) A 300 

126 FORMA! (//7H R Eb I ON , iOX , 1HP , i 2X , 3HRHG, 1 IX , 1HT , 1 IX , 1HA , 1 IX , 1HU , 13X , A 301. 

12HMU»3X,iiHKEYNGL0S N0,9H MACH NO) A 302 

127 FORMAT ( 1 4X ,3HPS I , 4X , 10HSLUG/CU FT , 5X , 7HRANKI NE, 6X, 6HF T /SEC , 6X , 6HF A 303 

1 1 / S £ C , 4 X , 1 i H S L Ufa/ F T- S EC , 1 IX , 4H 1 / F T i A 304 

128 FORMAT ( 1 X , I 3 » F 1 2 , 4 , E 1 3 » 5 , JF 1 2. 4 » 2E l 5 » F 8. 4) A 305 
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L29 t URM A f 1/ 1X,25 hSTaGNATICN CONDITIONS ARt/ /H R E G I U N » 6X 9 5 HP STAG » 1 2 X , A 306 
L3HKHU, 7 X, 5HTSTAG.4X, 12HPSTAG/PSTAGI,/, i4X,4HP SI A, 4X » 1 1H SL UGS/ CU FT A 307 
2»5X, 7HRANKINE) A 308 

130 FORMAT ( / / 1 AH HEAT T R ANSFER , / 1 7X , 1HU , 14X, 3HHF P , 12 X , 8H ST AN TGN4 , 7X , 8 A 309 

1HSTANTUN1 ,7X,5HP6/P4, 10X , 2HHR , 1 2 X , 3HUPK , 12X , 3HHPK ) A 310 

131 FORMAT t OH LAM I NAR , 2X , 6 ( E 15 . 5 )) A 311 

132 FORMAT ( 1 OH TUK6ULEN T ,8 ( E15 . 3 )) A 312 

133 FORMAT UHl.SOH THIS PROGRAM PERFORMS A TYPE 6 SHOCK INTERFERENCE, A 313 

16H PATTERN//12H RUN NUMB ER ,F5.2//J A 314 

134 FORMAT llril) A 315 

135 FORMAT ( 1 HO , 20H I NP UT VARIAbLES ARE /9H THETAI =,F9.4,19H OEG , ANO A 316 

1THETAB = ,F9.4,4H 0EG//1 A 317 

136 FORMAT 1/2BH THETAb IS LESS THAN THETAI ) A 31b 

137 FORMAT ( /43H NO SOLUTION WAS FOUND FOR A TYPE 6 PATTERN ) A 319 

136 FORMAT I IX, 1 1 , 4F 12.4 , 2F 15. 4) A 320 

enu a 321- 


Subroutine EXPNS 

Subroutine EXPNS calculates the Mach number across an expansion layer by using 
an iterative procedure. The flow diagram and listing follow. 



SUBROUTINE EXPNS ( RNU , RM , GAMM A, I E RROR 1 B 2 

B 3 

PURPOSE B 4 

FIND MACH NUMBER ACROSS EXPANSION LAYER KNOWING NU AND GAMMA. B 5 

RM SHOULO ORIGINALLY HOLD INITIAL GUESS. B 6 

F l M) = A * ATAMSORT Ifl*(RM2-i.l>) - AT AN ( SORT ( RM 2- 1 . )) - NO B 7 

B 8 

GPI =GAMMA+1 . B 9 

GM1 = GAMMA-1 . B 10 

C CALCULATE THE 2 COEFFICIENTS IN F(M* B 11 

A=SU RT (GP1/GM1) B 12 

B=GM 1/ GPI B 13 

IERRGR=0 B 14 

I T=0 B 15 

T 0L= .0001 B 16 

C CALCULATE NER VALUE FOR RM B 17 

1 CONTINUE 

RM2Ml=RM*RM-l„ C 3 

DFM= A*B*RM/ (SORT ( B*RM2M 1 ) * 1 1 . +B*RM2M 1 i )-l ./ ( RM *SORT( RM2M 1 ) ) 0 4 

FM = A*ATAN ( SQR T 1 8 *R M2M I ) J -AT AN I SDR T (RM2M 1 J J-RNU C 4 

RM1=RM-FM 7 0FM 

C HAS RM CONVERGED B 19 

IF I ABS I R Ml-RM ) -TOL) 3,3,2 B 20 

C CONTINUE ITERATING 8 21 
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R M= R M 1 B 22 

1 T= I T+ 1 a 23 

IF ( IT.GT .501 GO TO 4 B 24 

IF ( RM.LE.i.J GO TO 5 a 23 

GO TO I B 26 

I TEK AT ION IS COMPLETE 3 27 

RM=RM1 8 28 

RETURN B 29 

HAS EXCEEDED NUMBER OF ITERATIONS ALLOWED B 30 

I E RRQK= 1 B 31 

RETURN B 32 

THE MACH NUMBER HAS FALLEN BEL JN THE LOWER LIMIT OF 1. 8 33 

I E RR0R = 2 B 34 

RETURN 8 33 

END B 36- 

E 1 


Subi’outine TYP6 

Subroutine TYP6 calculates the shear -layer angle for a type VI flow interference 
pattern. The flow diagram and listing follow. 
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SUBROUTINE TYP6 ( T HE l AE , BET A2 » RM 1 , RM4 , RMi , T FE T AB , P 1 , P 4, P 6 , GAMMA , TO t 2 


1L , lEkRUk»UPTIUN*P20Pl) E 3 

C PURPOSE t 4 

C CALCULATE THETAF FOR A TYPE o SHOCK. INTERFERENCE PATTERN E 5 

c description of variables e 6 

C THETAF = UEFLtCT I ON ANGLE FOR POINT 2 IN RADIANS, OUTPUT E 7 

C BETA2 = SHOCMwEAK) ANGLE FOR POINT 2 IN KAO I A NS , OUTPUT E 8 

C KM1 = INITIAL MACH NUMBER, INPUT E 9 

C RM4 = MACH NUMBER AT POINT 4, INPUT E 10 

C RMS = MACH NUMBER AT POINT 5, OUTPUT E 11 

G THETAB = ANbLE OF SECOND SHUCK DEFLECT I UN. USED AS INITIAL E 12 

C ESTIMATE FOR THETAF E 13 

C PI ABSOLUTE PRESSURE AT PGINT 1, INPUT E 14 

C P4 ABSOLUTE PRESSURE AT PUINT 4, INPUT E IS 

P 5 = ABSOLUTE PRESSURE AT POINT S, OUTPUT E 16 

GAMMA = CP/CV E 17 

TUL = CONVERGENCE CRITERIA FOR THETAF E IB 

I ERROR = 1) NO ERROR E 19 

1 EXCEEDED ALLOWABLE NUMBER OF ITERATIONS E 20 

2 NO SOLUTION FOUND FOR THETAF E 21 

DATA 0PT/4HAXIS/ E 22 

C I SENTROPI C PRESSURE RATIO ( P STAGNATION /PI E 23 

PZ0P(GAMMA,GM1,RM)=(1.+GM1*RM*RM/2.)**(GAMMA/GM11 E 24 

C FOR EXTRA PRINTOUT SET DEBUG TO 1. E 23 

0EBUG=0. ‘ E 26 

RM42M1=RM4*RM4-1. E 27 

GP 1=GAMMA+1 . E 28 

GM1=GAMMA-1. E 29 

C CALCULATE COEFFICIENTS FOR EQ OF NU E 30 

A=SURT 1GP1/GM1) E 31 

B=GM1/GP1 E 32 

C CALCULATE NU4 E 33 

RNU4 = A*AT AN (SORT ( B*RM42M1) J -A TAN l SORT (RM42M1I ) E 34 

I ERR0R = 0 E 33 

I T=0 E 36 

C SET INITIAL ESTIMATE FOR RMS E 37 

RM5=RM4 E 33 

C SET INITIAL ESTIMATE FOR THETAF E 39 

THE TAF = TH ET AB E 40 

C THETAF INCREMENT E 41 

OTHETA=. 1 E 42 

ISW = 0 E 43 

C FIND WEAK SHOCK ANGLE FOR 2 E 44 

l I ERR=1 E 45 

BET A2=F INDB{GAMMA,RM1,ABS(THETAFJ ,1, IERR) E 46 

C WAS A SOLUTION FOUND E 47 

IF (IERR.GT.2) GO TO 8 E 48 

C FIND PRESSURE AT PT 2 E 49 

SINB2=SIN(BETA2I E 50 

P 20P 1=PRAT 1 0{ GAMMA » RMi, S I NB2) E 51 

I SW=1 E 52 

P2=P20P1*P1 E 53 

C FIND PRESSURE AT PT 5 E 54 

RNU5=RNU4+ABS( THE TAF-THETAB ) E 55 

CALL EXPNS (RNU5, RMS, GAMMA, IERRJ E 56 

IF (IEKR.GT.O) GO TC 10 E 57 

C STAGNATION PRESSURE AT 4 £ 58 

PZGP4=PZ0P(GAMMA,GM1,RM4) E 59 

P4Q=PZUP4*P4 ■ E 60 

PZ0P5=PZ0P ( GAMMA , GM1 ,RM3 I E 61 
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c 

P 50 IS SAMI AS P4G 

E 

62 


P 5= P4Q/PZ0P 5 

E 

63 

c 

INTERATICN COMPLETE 

E 

64 


IE IDE6Ub.GT.0J WRITE (6,11) THE TAF » P2 * P5 *RNU 4 » RN U5 ,RM5 

E 

65 


IF (ABSlP5-P2i.LT.TCU RETURN 

E 

66 

c 

CONTINUE ITERATING 

E 

67 


IF ( IT.GT .50) GO TO 7 

E 

6B 


I T= I T+l 

E 

69 


IF (P5.UT .P2 ) GO TO A 

E 

70 

c 

P2.GT.P5 - LECREASE THETAF 

E 

71 


THETAF=TH6TAF-0THETA 

E 

72 


IF (ISW) 1,3,2 

E 

73 

2 

DTHETA=uTHETA/2. 

E 

74 


THETAF = THET AF +0 THETA 

E 

75 


GO TO 1 

E 

76 

3 

ISW=-i 

E 

77 


GO TO 1 

E 

78 

c 

P5.GT.P2 - INCREASE THETAF 

E 

79 

4 

THETAF =THETAF+OTHETA 

E 

60 


IF (ISW) 5,6,1 

E 

81 

5 

DTHETA=DThETA/2. 

E 

82 


THETAF=THETAF-QTHETA 

E 

83 


GO TO 1 

E 

84 

6 

ISW = i 

E 

85 


GO TO I 

E 

86 

C 

HAS LXCbtuED ALL JwAbLE NUMBER OF ITERATIONS 

E 

87 

1 

1 ERRUK= 1 

E 

88 


RET URN 

E 

89 

c 

NO SOLUTION wAS FOUND FQrt BE TA2 . THETAF IS TOO LARGE. IF ISW IS 

E 

90 

c 

0 - THEN ORIGINAL ESTIMATE FOR THETAF WAS TOO LARGE 

E 

91 

d 

THETAF =ThETAF-JTHETA 

E 

92 


IF ( 1 d w ) 1,1,9 

E 

93 

9 

UTHETA=DTHETA/2. 

E 

94 


IF ( UTHETA. GI .0.0001 ) GO TO 1 

E 

95 


A TYPE 6 INTERFERENCE PATTERN WAS NCT POSSIBLE. HAS DEGENERATED 

E 

96 

C 

IU A TYPE 5 

E 

97 


I ERRUk=2 

E 

98 


RET URN 

E 

99 

iO 

nRITE (6,12) I ERR , RNU4 , RM4, kNU5 » RMS 

E 

100 


CALL EXIT 

E 

101 

c 


E 

102 

1 1 

FORMAT (1 OF 12. 5) 

E 

103 

12 

FURMAT { I 5, 4F12.5, 5X»24HNU SuLUTIUN FOUND FOR M5) 

E 

104 


END 

E 

105- 


F 1 


USAGE 

Program SHOCK for a type VI interference pattern uses the standard FORTRAN 
NAMELIST input with $DATAIN as the NAMELIST name. The input includes the flow 
conditions, gas properties, flow deflection or shock angle, impingement location on the 
body, and body angle. The program can increment the shock generator angle and also 

predict when a type V interference pattern will occur. 

A description of the input and output variables and a sample case are presented. 
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Input Description 


The 

RUN 

RM1 

GAMMA 

THETAI 

THETAB 

TINCR 

NTIMES 

IPT 

T 

P 

AMW 

TREF 

VREF 

S 

XL 

TWALL 

CP 


$DATAIN input for type VI is as follows: 
run number for identification 
Moo, free -stream Mach number 
c p/ c v> ratio of specific heats 

0^, shock-generator angle, deg; or ( 3 ^, impinging shock angle, deg 
0 b , body angle, deg; or /3 b , bow shock angle, deg 
increment for 0 deg (Default = 5°) 
number of times to increment 0 ^ 

initial point; 0 for stagnation conditions, 1 for free -stream 
static conditions 

temperature at IPT, °R 

pressure at IPT, psia 

molecular weight (used to compute gas constant) 
reference temperature for computing viscosity, °R 
reference viscosity for computing viscosity, slugs/ft-sec 
Sutherland's constant in viscosity equation 
Xi, distance from leading edge to impingement point, ft 
temperature at wall, °R 

Cp, specific heat at constant pressure, ft-lbf/slug-°R 
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PR 

Np r , Prandtl number 



ANGLE 

THET if 9 i input; BETA if 

% 

input 

ANGLE 2 

THET if 0 b input; BETA if 

0b 

input 

TOL 

acceptable tolerance for equal pressures (0.001) 


Output Description ' 

The output consists of printing only. A heading and pertinent input for identifica- 
tion are printed before the results of the calculations. 

RUN NUMBER run number for identification 

Ml Moo, Mach number in free stream 

GAMMA (CP/CV) ratio of specific heats 

TEMP AT POINT "IPT" input as T, °R 

PRES AT POINT "IPT" input as P, psia 

MOLECULAR WEIGHT molecular weight (used to compute gas constant) 

REFERENCE TEMP reference temperature for computing viscosity, °R 

REFERENCE VISCOSITY reference viscosity for computing viscosity, slugs/ft -sec 
S(SUTHERLAND NUMBER) Sutherland's constant in viscosity equation 
TEMP AT WALL T w , °R 

CP Cp, specific heat at constant pressure, ft-lbf/slug-°R 

PRANDTL NUMBER N Pr , Prandtl number 

XL(WALL LENGTH) X^, length from leading edge to impingement point, ft 

THETAI 9^, shock generator angle, deg 
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THETAB 


0^, body angle, deg 


P2/P1, etc. 
RH02/1, etc. 
T2/T1, etc. 

A2/A1, etc. 

U2/U1, etc. 
RELATIVE ANGLE 
THETA 
BETA 

ABSOLUTE ANGLE 
THETA 
BETA 

UPSTREAM MACH 
LOCAL MACH 
REGION 
P 

RHO 

T 

A 

U 


Pg/Pj, etc., pressure ratios for regions listed 
P 2 /P 1 ’ e ^ c *j density ratios for regions listed 
T 2 /Ti, etc., temperature ratios for regions listed 

e tc., ratios of speeds of sound in regions listed 
u 2 / u i , etc., velocity ratios for regions listed 


flow angle relative to flow in upstream region, deg 
shock angle relative to flow in upstream region, deg 


flow angle relative to free -stream flow, deg 

shock angle relative to free -stream flow, deg 

Mach number in upstream region 

local Mach number 

region in shock pattern 

static pressure in region, psia 

O 

static density in region, slugs/ft 0 
static temperature in region, °R 
speed of sound in region, ft/sec 
velocity in region, ft/sec 
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MU 

static viscosity in region, slugs/ft -sec 

REYNOLDS NO 

Reynolds number per foot in region 

MACH NO 

Mach number in region 

The following stagnation conditions are then listed: 

PSTAG 

total pressure in region, psia 

RHO 

total density in region, slugs/ft^ 

TSTAG 

total temperature in region, °R 

P STAG /P STAG 1 

ratio of total pressure in region to free -stream total 
pressure 

The pressure ratio and heat transfer for laminar and turbulent flow are listed 
as 

Q 

heat -transfer rate, Btu/ft^-sec 

HFP 

flat -plate heat -transfer coefficient, Btu/ft^-sec-°R 

STANTON4 

local incompressible Stanton number 

STANTON1 

compressible free -stream Stanton number 

P6/P4 

pressure ratio 

HR 

Markarian heat -transfer ratio 

QPK 

peak heating rate 

HPK 

peak heat -transfer coefficient 
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Sample Case - Input 


$QATAIN 

RH1 

GAMMA 

THETAB = 

THEtAI = 

TINCR 

NTIMES = 

IPT 

T 

P 

AMW 

TREF 

VREF 

XL 

S 

TWALL 

CP 

PR 

RUN 

ANGLE 

ANGLE2 = 

TOL 

SEND 


0.6 E+Ol i 
0.14E*01. 

0.15E+02. 

0.56*01, 

0. 56*01, 

1 , 

0 , 

0.9E+03, 

0.4E*03, 

0.2897E*02, 

0.53E*03, 

0. 3801E-06, 

0.25E*00, 

0.1986E+03, 

0.55E*03, 

0.6006E*04, 

0.72E*00, 

0.1E*01, 

0. 69404 725 763 10 9E+93, 
0.69404 725 765 1C9E*93, 
0.1E-02, 


Sample Case - Output 


THIS PROGRAM PERFORMS A TYPE 6 SHOCK INTERFERENCE PATTERN 
RUN NUMBER 1.00 


INPUT VARIABLES ARE 
Mi 

GAMMAICP/CV) 

TEMP AT POINT 0 
PRES AT POINT 0 
MOLECULAR WEIGHT 
REFERENCE TEMP 

REFERENCE VISCOSITY 3 

S( SUTHERLAND NUMBER) 

TEMP AT WALL 
CP 

PRANDTL NUMBER 
XL! WALL LENGTH) 


6.000 


1.400000 


900.000000 

RANKINE 

400. 000000 

PS I 

23.970000 


530. COOOOO 

RANK INE 

80 IU00E-07 

SLUG /( FT- SEC) 

198. 600 


550.000 

RANKINE 

6006.000 

FT-L8F/I SLUG- RANK INE i 

. 720000 


.250000 

FT 



CO 

to 


INPUT VARIABLES ARE 

THETAI = 5.0000 U£u, ANO THETA8 


15.0000 DEG 


RATIOS ARE 


P2/P l- 

6.2o57 

KHU2/ 1= 

3.1463 

T2/Ti= 

1.9913 

A2/Al= 

1.4111 

02/01= 

.9206 

P3/P i= 

2. 0 103 

RHCJ3/ 1= 

1 « 63 06 

T3/T1= 

1.2320 

A3 /Al= 

1.1103 

03/01= 

.983 7 

P4/P3- 

3.2313 

RHU<t/3= 

2*2083 

T4/T3= 

1.4631 

A4/A3= 

i.209o 

U4/U3= 

.9582 

P4/P1* 

6.4957 

KHCJ4/ 1= 

3* 60 13 

T4/T1- 

1.8037 

A4 / A I - 

1.3430 

04/01= 

.9425 



RELATIVE ANGLE 

A8S0L0TE ANGLE 




THETA 

BETA 

THETA 

BETA 

UPSTREAM MACH 

LOCAL MACH 

2 

15*3412 

23.0303 

15.3415 

23.05B3 

6. 0000 

3.9483 

3 

3.0000 

13.1598 

5.0000 

13.1598 

6.0000 

5.3157 

4 

10.0000 

iti. 7264 

15.0000 

23. 7264 

3.3137 

4.2108 

5 

5.3413 

18.7264 

15.3413 

23.7264 

4.2108 

4.2366 


REGION 

p 

RHO 

T 

A 

U 

MU 

REYNOLOS NO 

MACH NO 


PS I 

SLuG/CU FT 

RANKINE 

FT/SEC 

FT/SEC 

SLUG/FT-SEC 

1/FT 


1 

.2533 

1 .93645 £—04 

109.75ol 

513.5679 

3081.4074 

8..46377E— 08 

7.05004E+06 

6.0000 

2 

L.5874 

6.05309E-04 

218.5598 

724.7174 

2861. 4275 

1.75803E-07 

9.91731E+06 

3.9483 

3 

.5093 

3.15760E-04 

135.3111 

570.2302 

3031. 1919 

1.06990E-07 

8.94597E+06 

5.3157 

4 

1 ■ 645 7 

6.9 7365E— 04 

197.9706 

689.7376 

2904.3537 

1.59424E-07 

1.27045E+07 

4.2108 

5 

1.5870 

6. 795416-04 

195.9276 

686.1694 

2908.5544 

1.57775E— 07 

1.25272E+07 

4.2388 

STAGNATION CONDITIONS ARE 







REGION! 

pstag 

RHO 

TSTAG 

PSTAG/PSTAG1 





PSIA 

SLUGS/CO FT 

RANKINE 






I 

400.0000 

3.72856E-02 

900.0000 






2 

224.9256 

2,096626-02 

900.0010 

.5623 





3 

386. 5123 

3.602806-02 

900.0088 

.9663 





4 

329.6872 

3.073116-02 

900.010/ 

.8242 





5 

329.6872 

3.073146-02 

900.0000 

.8242 






HEAT TRANSFER 

Q 

HFP 

STANT0N4 

SfANTONl 

P6/P4 

HR 

UPK 

LAMINAR 8.37207E-01 

3.435S3E-03 

5.66997E-04 

7. 45904E-04 

9.28 770E-01 

9. 09079E— 01 

7. 61 087E-01 

TURBULENT 4 . 25952E-S-0G 

1. 5367CE— 02 

2.53.586E-03 

3. 33601E-03 

9.28770E-01 

9.39122E— 01 

4.00021E4-00 


HPK 

3. 12353E-03 
1. 44315E-02 



PART ¥11 - SUBPROGRAMS 


A description of each of the subprograms common to more than one main program 
is presented along with a flow chart and listing. 


FTHETA 


Function FTHETA computes the flow deflection angle given the Mach number ahead 
of the shock, the ratio of specific heats, and the shock angle. The flow diagram and list- 
ing are as follows: 



FUNCTION FTHE T A ( GAMMA , RM , BET A ) B 3 

C FIND FLOW ANGLE 8 4 

S I N B = S I N ( BETA > B 5 

SINBSQ=SIN8*SINB B 6 

COS?B=CO$ I 2.* BET A) B 7 

RMSG=PM*RM 8 8 

RMSB2=RMSQ*SINBSQ B 9 

TANR=7AN{ BETA) 8 10 

TANTH=2.*IRMS02-1.)/(TANB*(RMSQ*(GAMMA*CC$2B)*2.)) B 11 

FTHE TA = ATAN( TANTH) 8 12 

RETURN 8 13 

END 8 14- 


PINPUT 


Subroutine PINPUT prints out the input variables. The flow diagram and listing 
for this subroutine are as follows: 
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SUeROU T INE PINPUT (FMl.GAMMA, IPT,T,p,AMW,TREF,VPEF,XL,S,TWALL,CP,P A 2 


1°. 1 A3 

C PRINT OUT INPUT VARIABLES A 4 

WR I T E (6,11 A 5 

WRITE (6,11) RM1 A 6 

WRITE (6,12) GAMMA A 7 

WRITE (6,2) IPT,T A 8 

WRITE (6,3) IPT,P A 9 

WRITE (6,4) AMW A 10 

WRITE (6,5) tree A 11 

WRITE (6,6) VREF A 12 

WRITE (6,7) S A 13 

WRITE (6,8) TWALL A 14 

WRITE (6,9) CP A 15 

WRITE (6,10) PR A 16 

RETURN A 17 

C A 18 

1 FORMAT ( 1 HO , 2 OH INPUT VARIABLES ARE /) A 19 

2 FORMAT ( 14H TEMP AT PO I NT , 1 2 , 1 5X, F 15 . 6 , 9H RANKINE) A 20 

3 FORMAT ( 14H PRES AT PO INT , I 2 , 1 5X , F 1 5 . 6 , 6H PSI ) A 21 

4 FORMAT ( 17H MOLECULAR W E I GHT, 14X , F 15 . 6 ) A 22 

5 FORMAT (15H REFERENCE T EMP , 1 6 X , FI 5 . 6 , 9H RANKINE) A 23 

6 FORMAT ( 20H REFERENCE V I SC CS I TY , 1 IX , E 1 5 . 6 , 15 H SLUG/( FT-SEC ) ) A 24 

7 FORMAT ( 2 1 H S ( SUTHER LAND NUMB E R ) , 1 OX , F 1 5 . 3 ) A 25 

8 FORMAT ( 1 3 H TEMP AT W ALL , 1 8X, FI 5 . 3 , 9H RANKINE) A 26 

9 FORMAT (3H CP , 2 8X , FI 5 . 3 , 23 H F T-L BF/ ( S LUG-R ANK I NE ) ) A 27 

10 FORMAT (15H PRANDTL NUM BER , 16 X , FI 5 .6 ) A 28 

11 FORMAT ( 3H Ml ,28X, F15.3 ) A 29 

12 FORMAT (13H G AMMA ( C P/C V ) , 1 8X , FI 5 . 6 ) A 30 

FNC A 31- 


OBLIQ 

Subroutine OBLIQ calculates the flow -property ratios across an oblique shock. The 
flow diagram and listing are as follows: 



124 





OoOOOOOOOO 



SUBROUTINE OBLIQ ( GAMMA »RMI , THE TAJ, BE TA J ,RMJ , RAT, I , J , I OPT) F L 

• tt*a«#,s***s«,«,*****##***#**o*, a *****, < o***** M ********* aea * s * e * a ** F 2 

PURPOSE F 3 

TC CALCULATE THE OBLIQUE SHOCK RELATIONS FOR PRESSURE, DENSITY, F 4 

TEMPERATURE, SONIC VELOCITY, VELOCITY, AND MACH NUMBER FOR F 5 

CONDITIONS I BEFORE THE SHOCK AND J AFTER THE SHOCK F 6 

F 7 

USAGE F 8 

F 9 

CBL IQ (GAMMA, PHI, THETAJ, BETAO , RM J , RAT, I, J, I OPT ) F 10 

F 11 
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isjoi—oooooo oonononononooooonon 


DESCRIPTION OF VARIABLES F 

GAMMA = RATIO OF SPECIFIC HEAT C AP AC I T I ES I CP/ CV ) F 

RM I = MACH NUMBER BEFORE THE SHOCK F 

THE TA J = DEFLECT ICN ANGLE OF THE STREAMLINES IN RADIANS F 

BETAJ = SHOCK ANGLE IN RADIANS F 

RM J = MACH NUMBER AFTER THE SHOCK F 

RAT 1 1 ) = PJOPI DOWNSTREAM PRESSURE OVER UPSTREAM PRESSURE F 

RAT (2) = RHOJOI DOWNSTREAM DENSITY OVER UPSTREAM DENSITY F 

RAT (3 )= T JOT I DOWNSTREAM TEMPERATURE OVER UPSTREAM TEMP F 

RAT (A) = AJCAI DOWNSTREAM SONIC VELOCITY OVER UPSTREAM SOMIC F 

RAT 15 )= UJOUI DOWNSTREAM VELOCITY OVER UPSTREAM VELOCITY F 

I = UPSTREAM CCNOIT IONS F 

J = DOWNSTREAM CONDITIONS F 

IOPT = 1,-1 CALCULATE RMJ F 

2,-2 DO NOT CALCULATE RMJ F 

POSITIVE PRINT RATIOS F 

NEGATIVE DO NOT PRINT RATIOS F 

F 

F 

COMMON P 2 , RHOZ, TZ, PIOPZ, RHOIOZ, TIQTZ, F 

L PZ2, RHOZ2, TZ2, P20PZ2, RH02Z2, T20TZ2, F 

2 PZ3, RHOZ3 , TZ3, P30PZ3, RH03Z3, T30TZ3, F 

3 PZ4, RHOZ4, TZ4, P40PZ4, RH04Z4, T40TZ4, F 

4 PZ5, RHOZ5 , TZ5, P50PZ5, RH05Z5, T50TZ5, F 

5 P Z 6, RH0Z6 , TZ6 » P60PZ6, RH06Z6, T60TZ6, F 

6 P20P1, RHO201, T20T1, A20AI, U20U1, F 

7 P30P2, RH0302, T30T2 , A30A2, U30U2, F 

8 P30PI, RH03CI, T30T1, A30AI, U30UI, F 

9 P40P2, RH04G2 , T40T2 , A40A2, U40U2, F 

$ P40PI, RH04G1, T40T1, A40AI, U40U1, F 

$ P50P3, RH05C3, T50T3 , A50A3, U50U3, F 

$ P60P5, RH06C5, T60T5, A60A_ U60U5, F 

$ P50P1, RH0501, T50T1 , A50A1, U50UI, F 

$ P60P1, RH06 C l s T 60T 1 » A60AI, U60UI F 

COMMON P60P3, RH06C3, T&0T3, A60A3, U60U3 F 

CCMMCN PI, RHOL, Tl, Al, Ul, VISC1, REYi, F 

1 P 2 , RHO 2 , T2 , A2, U2, VISC2, REY2 , F 

2 P3 , RH03 » T3 , A3, U3, VISC3, REY3, F 

3 P 4 , RH04 , T4, A4 , U4 , VI SC 4, REY4 , F 

4 P5 « RH05 , T 5 , A5 , U5, VISC5, REY5, F 

5 P 6 , RHO 6 , T 6 , A6 , U6 , VISC6, REY6 F 

DIMENSION RAT (5 ) F 

FIND RATIOS USING UBLIQUE SHUCK RELATIONS F 

S INB=S INI BETAJ ) F 

CALCULATE PRESSURE RATIOS F 

PJOP I=PRAT IOI GAMMA , PM I, SINB) F 

CALCULATE DENSITY RATIOS E 

RHO JO 1= DEN RAT ( GAMMA , RM I , SINB ) F 

CALCULATE TEMPERATURE RATIOS E 

T JOT 1=TRAT IOI GAMMA , RM I, SINB ) F 

CALCULATE SOMIC VELOCITY RATIO F 

AJOAI= ARAT IOITJOTI ) F 

CALCULATE MACH NUMBER AT CONDITION J F 

IF l IABSI IOPT)- 1) 2,1,2 F 

RMJ=F INDM IGAMMA , RMI , S I NB , BET AJ , T HET AJ ) F 

CALCULATE VELOCITY RATIO F 


UJQUI=AJOAI*RMJ/RMI 

RATI l)=PJOPI 

RAT 121= RHOJOI 

RAT I 3 > = T JOT I 

RAT (4 I =AJO Al 

RATI 5)=UJOUI 


13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
33 

39 

40 

41 

42 

43 

44 

45 

46 

47 
43 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 
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ui r> 


C IF IOPT POSITIVE WRITE RATIOS F 74 

IF ( IOPT) 4,3,3 F 75 

3 CONTINUE F 76 

WRITE 16,5) J , I , PJOP I , J , I , RHO JOI , J , 1 ,T JOT I, J, I, AJOAI , J , I , U JOU I F 77 

RETURN F 78 

F 79 

FORMAT (IX, 1HP, I 1, 2P/P, 1 1, 1H=,F8. 4»5X, 3HRHU.I 1,1H/,I I , IH = »F8. 4 , 5X, F 80 
11HT ,1 1 ,2H/T,I 1,1 H= ,F8.4,5X,IHA, II ,2H/ A, I L, 1H=,F8.4, 5X, 1HU, II, 2H/U, F 81 
211, 1H=,F8.4) F 82 

END F 83- 


PRATIO 

Function PRATIO computes the ratios of the static pressures across an oblique 
shock. The flow diagram and listing are as follows: 



FUNCTION PRATIO ( GAMMA , RM, S IN0 ) C 1 

C FIND RATIOS OF STATIC PRESSURES, SI NB=SIN( BETA) C 2 

PRATI0=2*GAMMA*(RM**2*S INB**2-1 . ) /(GAMMA + I. ) +1 .0 C 3 

RETURN c 4 


DENRAT 

Function DENRAT computes the ratios of the static densities across an oblique 
shock. The flow diagram and listing of this function are as follows: 


DENRAT ^ 


Compute static density 
ratios 


^ Return ^ 
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FUNCTION OENRAT { GAMMA , RM, S INB » 0 2 

C FINC PATIOS OF STATIC DENSITIES* S I NB = S I N { BE T A ) D 3 

RMS Q = R M#R M D 4 

SI NBSG=SI NB#S INB D 5 

DENPAT=<GAMMA+l.)*RMSQ*SINBSQ/((GAMMA-l.)*RMSQ*SINBSQ+2.) 0 6 

RETURN D 7 

END D 8- 

C E 1 


TRATIO 


Function TRATIO computes the ratios of the static temperatures across an oblique 
shock. The flow diagram and listing are as follows: 



FUNCTION TRATIO ( GAMMA , RM, S INB ) E 2 

C FIND RATIOS OF STATIC TEMPERATURES, S INB=S I N ( BETA ) E 3 

SfN 6 SC=SINP*STNB E 4 

RMSQ=PM*PM F 5 

RMS62=RMSQ*SINBSQ E 6 

GAMMAR=2*(GAMMA-1. )/(GAMMA+l. )**2 E 7 

TRATIC=I.+GAMMAR*(RMS02-1. )*(GAMMA*RMSB2+1. I/RMSB2 E 8 

RETURN E 9 

FNC E 10- 

C ...............it............. F 1 


ARATIO 


Function ARATIO computes the ratios of the speeds of sound across an oblique 
shock. The flow diagram and listing are as follows: 
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c 


R 

F' 

A I 
R I 
E! 


FINDM 


Function FINDM computes the Mach number behind an oblique shock. The flow 
diagram and listing are as follows: 



FUNCTION FINDM ( GAMMA, PM1, S IN 3, BETA, THETA ) G 2 

C FIND MACH NUMBER, S I NB= S I N ( BE TA ) G 3 

SINBSQ=$I NB*S I NB G 4 

RMSG=RM1*RM1 G 5 

RMSB2=RMSQ*SINB$Q G 6 

C= (1. + IGAMMA-1 . )*RMSB2/2. )/( GAMMA*RMSB 2-{ GAMMA-1 „ )/2. * G 7 

FINDM=SQRT(C)/ABS(SIN(BET A-THET A ) ) G 8 

RETURN G 9 

END G 10- 

C ***********,,****,*********•••••••••*«•••••«••••••••••••,••••••••• H 1 


MLTRT 


Subroutine MLTRT computes the ratios of the flow quantities in each region with 
respect to the free -stream values by multiplying the ratios across oblique shocks. The 
subroutine flow diagram and listing are as follows: 










SUBROUTINE MLTRT { R AT I 0 J , R AT I 0 1 , P 4T JO I , I , J , I OPT ) H 2 

C MULTIPLY RATIOS TO OBTAIN RATIOS WITH RESPECT TO FREE STREAM H 3 

DIMENSION R AT 1 0 J ( 5 ! » RATI 01(5), RATJOK5) H 4 

COMMON PZ, RHGZ, TZ, PIOPZ, RHOIOZ, TIOTZ, H 5 

1 P Z2, RHOZ2, TZ2, P20PZ2, RH02Z2, T20TZ2, H 6 

2 p Z 3 , RHOZ3, T Z 2 » P3CPZ3, RH03Z3, T30TZ3, H 7 

3 PZ4, RH0Z4, TZ 4 « P40PZ4, RH04Z4, T40TZ4, H 8 

4 P Z 5 » RHOZ5 1 TZ5, P5CPZ5, RH05 Z5 , T50TZ5, H 9 

5 p Z 6 1 RHOZ6 1 TZ6, P60PZ6, RH06Z6, T60TZ6, H 10 

6 P20P1, RH0201, T20T1, A20A1, U2CUI * H 11 

7 P30P2, RH0302, T30T2, A30A2, U30U2, H 12 

8 P30P1, PH0301 , T30T1 , A30A1, U3CU1, H 13 

9 P40P2, P HO 402 , T4QT2, A40A2, U40U2, H 14 

$ P40P1, PH0401, T 40T 1 , A40A1 , U40U1, H 15 

$ P50P3, RH0503, T50T3, A50A3, U50U3, H 16 

$ P60P2, PH0602, T60T2, A60A2, U6CU2, H 17 

$ P60P4, RH0604, T60T4, A6044, U60U4, H 18 

$ P50P1, RH0501 » T50T1, A50A1, U50U1, H 19 

t P6 OP 1 1 °H0 60 1 , T 60T 1 , A60A1, U60U1 H 20 

COMMON PI, RH01, Tl, Al, Ul, VISC1, REY1, H 21 

1 P2 , R HO 2 ? T 2 , A2, U2, V I SC 2, REY2, H 22 

2 P 3 , PHO 3 * T3, A3, U3, VISC3, REY3, H 23 

3 P4, RH04, T 4 , A4, U4, VISC4, PEY4, H 24 

4 p 5 * RH05, T5 , A5, U5, VISC5, REY5, H 25 

5 P 6 , PH06, T6 , A 6 , U6, VISC6, REY6 H 26 

DO 1 K = 1 , 5 H 27 

1 RAT JCI (K)=RA7!0J(K)*RATI0I (K) H 28 

IF (TCPT) 3,2,2 H 29 

2 WRITE (6,4) ( J » I , R AT JO I (K ) , K= 1 , 5 ) H 30 

3 RETURN H31 

C H 32 

4 FORMAT (1X,1HP,I1,2H/P,I1,1H=,F8.4,5X,3HPH0,I1,1H/,U,1H=,F8.4,5X, H 33 

I1HT, T 1 ,2HZT, I 1 ,1H=,F8.4,5X,1H A, I1.2H/A, I1,1H=,F8.4, 5X.1HU, I1.2H/U, H 34 

211, 1H= , F8 • 4 ) H 35 

END H 36- 


FINDB 

Function FINDB solves a cubic equation for the shock angle by using the upstream 
Mach number and the deflection angle. A code is provided which allows the user to spec- 
ify a strong-shock solution or a weak-shock solution. The flow diagram and listing are 
as follows: 
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FUNCTION FINOS ( GAMMA , RM , THET A , I ERRO» ) I 1 

C PURPOSE I 2 

C FIND SHOCK ANGLE I 3 

C I 4 

C DESCRIPTION OF VARIABLES I 5 

f GAMMA CP/CV I 6 

C RM UPSTREAM MACH NUMBER I 7 

C THETA DEFLECTION ANGLE I 8 

C I TYPE 2 FOP STRONG SHOCK SOLUTION AND 1 FOR WEAK SHOCK SOLUTION I 9 

C I F Q PQP 0 FOR NO ERROR I 10 

C 3 NO SOLUTION POSSIBLE I 11 

C 112 

DATA PI/3.141592'’/ I 13 

DIMENSION B FT A ( 3 ) » ZZ ( 3 > , ZANSI3), TAN ANSI 3) I 14 

IPP1NT=I ERROR I 15 

TERPOR=0 I 16 

IF ( ABS(THETA) oLT . .001 ) GO TO 4 I 17 

FM IN IT=P.M I 18 

THFTAC=THETA I 19 

FMSC=FMINIT*FMINIT I 20 

SIN T FE=SIN( THETAO I I 21 

SIN$C=SINTHE*SIN T HE I 22 

PZ=-(FMS0+2.0) /FMSQ-GAMMA*SINSQ I 23 

G4MM1=GAMMA-1.0 I 24 

SAMP1=GAMMA*1 .0 I 25 

GAMS0=GAMP1*GAMP1 126 

FM4 = PMS G* FMS C I 27 
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0Z=(2.0*FMSQ+1.0)/FM4+(GAMSC/4.0+GAMMl/FMSg>*SINSQ | 2 8 

COSTFE=COS ( THETAC ) I 29 

COS SQ=CQSTHE*COSTHE I 30 

RZ=-C0SSQ/FM4 I 31 

PZSC=PZ*PZ 1 32 

AZ = , 3333333*13. 0*GZ-PZSQI I 33 

PZ3=PZ*PZSQ I 34 

BZ=1. 0/27. 0*12. 0*PZ3-9.0*PZ*QZ+27.0*RZ) I 35 

BZ2=eZ/2.0 I 36 

BZSQ=EZ2*BZ2 I 37 

AZ?=AZ/3.0 I 38 

AZCUB=AZ3*AZ3*AZ3 | 39 

ARGCK=eZSO+AZCUB I 40 

IF { ARGCK ) 2,1,1 I 41 

1 I EPR0F=3 I 42 

THCEG=TH£TA*57.296 I 43 

IF { IPPINT.LE.O) WRITE (fc,6) GAMMA, RM.THDEG I 44 

RETURN I 45 

2 COSPHI=— 9Z2/SGRT<— AZCUB) I 46 

PAPT=2.0*SQRT(-AZ3) I 47 

PHI=*CaS(COSPHI> I 48 

PH I3=PHI/ 3.0 I 49 

PZRY3=PZ/3.0 I 50 

ZZ(1)=PART*CGS (PHI3J-PZBY3 I 51 

ZZ(2)=PART*C0S(PHI3+.6666667*PI)-PZ8Y3 I 52 

Z Z { 3 ) =PART*COS (PHI 3+1. 3333333 *PI )— P ZBY3 I 53 

00 3 1=1,3 I 54 

3 BETA! I)=ASIN(SCRT(ZZ(I) )) I 55 

TEMP 1 = AMAX 1 ( BET A ( 1 ) »BETAl 2 ) ) I 56 

TEMP2=AMAX1(BETA(2J , BETA! 3)) I 57 

TEMP3=AMAX1(BETA(1 ),BETA(3 I ) I 58 

C WEAK SHOCK I 59 

FINCB=APIN1(TEMP1,TEMP2,TEMP3) I 60 

RETURN I 61 ; 

4 IF ( I TYPE . EG .2 1 GO TO 5 I 62 

FINCB=ASIN(1./RM) I 63 

RETURN I 64 

5 F I NC B=1 . 5708 I 65 

RETURN I 66 

C I 67 

6 FORMAT { 32H NO SOLUTION POSSIBLE FOR GAMMA= , F8 .4, 5H, RM=, F8 .4, 12 H, I 68 

1 ANC THETA = , F8 .4 ] I 69 

FND I 70- 


ABSVAL 

1 

Subroutine ABSVAL calculates values of static pressure, static density, static tem- 
perature, speed of sound, velocity, static viscosity, and Reynolds number per foot for a 
region through the use of the ratios of values in that region with respect to free -stream 
yalues and the free -stream conditions. The flow diagram and listing are as follows: 
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SUBROUTINE ABSVAL I R AT , V ALU I , V ALU J , VREF, TR EF, S, J , IOP T , RM J ) N 1 

> • M > 




• 




» N 

2 

c 






A 

3 

c 

PURPOSE 





N 

4 

c 

CALCULATE ABSOLUTE VALUES FOR 

PARAMETERS P, RHO, T, 

A, U, VISC, 

N 

5 

c 

ANU REY 

FOR POINT J GIVEN VALUES AT POINT 1 AND THE 

RATIOS FOR 

N 

6 

c 

J OVER 

l 




A 

7 

C 1 






H 

3 

r 






. N 

9 


COMMON 

PZ, RHOZ, TZ, PIOPZ, 1 

IHOIOZ, 

TIOTZ, 


N 

10 

{■ ■ 

I 

PZ2, RH0Z2 1 TZ2, P20PZ2, RHU2Z2, T20TZ2, 


N 

11 


2 

PZ3, RHOZ3, TZ3 * P30PZ3, RH03Z3, T30TZ3, 


N 

12 


3 

PZ4 » RH0Z4, TZ4, P40PZ4, RH04Z4, T40TZ4, 


N 

13 


4 

PZ5, RHOZ 5, TZ5, P50PZ5, RH05Z5, T5UTZ5, 


N 

14 


5 

PZ6» RH0Z6, TZ6, P60PZ6, RH06Z6, T60TZ6, 


A 

15 


6 

P20PI, RH02C1, T20TI, 

A20AL, 

U20UI , 


N 

16 


7 

P30P2, RH0302, T30T2, 

A30A2, 

U30U2, 


N 

17 


8 

P30P1, RH0301, T30T1, 

A30A1, 

U30UI , 


N 

18 

f 

9 

P4QP2, RH04C2, T40T2, 

A40A2, 

U40U 2, 


1 N 

19 


$ 

P40PI, RH04Q1, T40TI, 

A40A1 , 

U40U1 , 


N 

20 


$ { 

P50P’3, RH0503I, T50T3, 

A50A3, 

U50U3, 


N 

21 


i * 

P60P5, RHQ6Q5 * T60T5, 

A6QA5, 

U60U5 , 


N 

22 


$ 

P5 OP It RH05CI, T50T1, 

A50AI, 

U50UI, 


A 

23 


$ 

P60PI, RH0601, T60T1, 

A60A1 , 

U6 0U1 


A' 

24 


COMMON 

P60P3, RH0603, T60T3 f 

A60A3, 

U60U3 


N 

25 


COMMON 

PI, RHOI , Tl, Al, Ul, 

VISCl, 

REYL, 


N 

26 


1 

P2 » RH02, T2, A2, U2, 

VISC2, 

REY2, 


N 

27 


2 

P3 , RH03, T3, A3, U3 , 

VISC3, 

REY3, 


N 

28 


3 

P4, RH04 , T4, A4» U4, 

VISC4, 

REY4, 


N 

29 


4 

P5, RH05, T5 , A5 , U5 , 

VISC5 , 

REY5, 


N 

30 


5 

P6, RH06 , T6, A6, U6, 

VISC6, 

REY6 


N 

31 
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DIMENSION RATI 5) , VALUK7I, VALUJI7) N 32 

C CALCULATE P, RHO, T, A, AND U AT POINT J N 33 

DO 1 1=1,5 N 34 

1 VALUJI I)=RAT( I)*VALU1(I) N 35 

C CALCULATE VISCOSITY N 36 

VALUJ(6)=VISCJIVREF, TREE, VALUJI 3i,S) N 37 

C CALCULATE REYNOLDS NUMBER! RHO*U*XL/V I SC ) N 38 

VALUJ (7 )=V ALUJI 2.) *VALUJ I 5 J /VALUJ I 6) N 39 

IF ( I OPT) 3,2,2 N 40 

2 WRITE (6,41 J, (VALUJI I), 1=1,7), RMJ N 41 

3 RETURN N 42 

C N 43 

4 FORMAT (IX, I 5, F 12. 4,E 15. 5, 3F 12. 4, 2E 15. 5.F8.4) N 44 

END N 45 


ISTROP 


Subroutine ISTROP calculates the static values or the total values of pressure, den- 
sity, and temperature for a region with the use of isentropic relations. The flow diagram 
and listing are as follows: 



c 

c 

c 

c 

c 

c 

c 

c 

r. 

c 


SUP ROUTINE ISTROP ( GAMMA, RM1 , VALU1 ,VALUZ, RATIO, IPT ) K 1 

K 2 

K 3 

PURPOSE K 4 

CALCULATE ISENTROPIC RELATIONS FOR P, RHO, T FROM STAGNATION K 5 

TO POINT 1 WITH M = RM1 K 6 

K 7 

DESCRIPTION OF VAPIABLES K 8 

GAMMA K 9 

RM1 K 10 

VALU1 VALUE OF P, T, RHO AT CONDITION 1 K 11 
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»-« (\j ro ^ ir\ 


c 

c 

c 

c 


1 

2 

3 

4 


C 


VfiLUZ VALUE OF P, T, RHO AT CONDITION ZERO * 12 

RATIC RATIO OF P, T, RHO AT CONDITION 1 OVER ZERO * 13 

TPT 0 OR 1. CONDITION WHICH WAS INPUT. CALCULATE THE OTHER. K 14 
K 15 

DI PENS I CN VALUK7), VALUZ ( 3 ) » RATIOI3) K 16 

COP MEN PZ, RHOZ, TZ, PIOPZ, RHOIQZ, T1QTZ, K 17 

1 PZ2, RH0Z2, TZ2, P20PZ2, RH02Z2, T20TZ2, K 18 

2 PZ3, RH0Z3, TZ3, P30PZ3, RH03Z3, T30TZ3, K 19 

3 PZ4, RH0Z4 * TZ4, P40PZ4, RH04Z4, T40TZ4, K 20 

4 PZ 5, RH0Z5, TZ5, P5QPZ5, RH05Z5, T50TZ5, K 21 

5 PZ6, RH0Z6, TZ6, P60PZ6, RH06Z6, T6GTZ6, K 22 

6 P20P1 , RHO 20 1» T20T1, A20A1, U20U1, K 23 

7 P30P2, RH0302, T30T2, A30A2, U30U2 , K 24 

8 P30Pit RH0301, T30T1 » A30A1, U30U1, K 25 

9 P40P2. RH0402, T40T2, A40A2. U40U2» K 26 

$ P40P1. RH040 1 , T40T 1 « A40A1 , U40U1* K 27 

$ P50P2, RH0503, T50T3, A50A3, U50U3, K 28 

* P60P2, RH0602, T60T2, A60A2, U60U2, K 29 

$ P6QP4, RH0604, T60T4, A60A4, U60U4, K 30 

$ P50P1 i RH0501, T50TI, A50A1, U50U1, K 31 

t P60P1, PH0601, T60T1, A60A1, U60U1 K 32 

COMMON PI, RHO 1, Tl, Al, Ul, VISC1, REYI, K 33 

P2, RHO 2, T 2, A2* U2 , VISC2, REY2, K 34 

P 3» RHO 3, T3, A3, U3 , VISC3, REY3, K 35 

P4 , RHO 4, T4, A4, U4, VISC4, REY4, « 36 

P5, R HO 5, T5, A 5, U5, VISC5, REY5, K 37 

P6, PH06, T6, A6, U6 , VISC6, REYfc K 38 

C=(l.+tGAMMA-l.)*RMl**2/2.» < 39 

P10PZ=1./C*MGAMMA/IGARMA-1.) > K 40 

RHC10Z=1./C**tl ./( GAMMA-1. ) ) K 4 1 

T 10 TZ = 1 . /C * 4 2 

PATIOm=PlCPZ K 43 

RATIQ(2)=R HU 10 Z K 44 

R A T I 0(3( =T1C T Z K 45 

IF ( IPT ) 3,3,1 X 46 

DO 2 1=1,3 K 47 

VALUZ{I)=VALU1{ n/PATICI I ) * 48 

PETLRN K 49 

00 4 1=1,3 K 50 

> VALU 1( I I=V ALUZ( I )*P AT IC ( I ) < 5 1 

RETURN * 52 

ENO * 53- 

L 1 


VISCJ 

Function VISCJ computes the viscosity by using Sutherland's formula (eq. (A2) of 
ref. 6). The flow chart and listing are as follows: 
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FUNCTION VISCJ <VP.EF,TREF,T,S ) L 2 

C FINC VISCOSITY L 3 

VISC. J = VREF*<T/TREF)*n . 5* ( TREF+S ) / < T+ S ) L 4 

RETURN L 5 

END L 6- 


TYP4 


Subroutine TYP4 computes the shear -layer deflection angle by iterating until the 
static pressures in (^sT) and (T) are equal and the flow directions are parallel on either 
side of the shear layer for the shock pattern shown in the following sketch: 



The flow diagram and listing for this subroutine are as follows: 


( TYPE 4 ^ 


d> 


CALL PRATIO 

k Compute pressure 
ratio P 2 /PJ 


3 


Compute 0 4 




' 'CALL FINDBN 
Compute 04 


CALL PRATIO 

^Compute pressure/ 
ratio p 4 /p 3 


Compute pressure ratio p 4 y'p 1 
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c 

c 

c 

t 

C 

c 

c 

0 

c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 


SUBkUU TINE TYP4 ( T HE l AP , ttET A2 , RMi , RM3 . TH ET A I , f HETA4 ,BE TA4 . P3UP1 ,GA 
1MMA.TUL. IERR0R1 
PURPUSE 

CALCULATE SHEAR LAYER l NC LI NATION BY MATCHING STATIC PRESSURE ANO 
FLOW U IRECT i UN UN EITHER SIDE OP SHEAR LAYER. AlSU CALCULATES FLOW 
ANGLES AND SHOCK ANGLES. 

DESCRIPTION OF VARIABLES 
INPUT 

THETAF = DEFLECTION ANGLE FOR RMi IN RADIANS. INPUT ESTIMATE 
GET At = SHOCK ( STRONG! ANGLE FOR RMi IN RAUIANS . INPUT ESTIMATE 
RMi = MACH NUMBER AT INITIAL POINT 

RP13 = MACH NUMBER AT CONDITION i. WEAK SHOCK BETWEEN 3 ANO 

THcTAI = DEFLECTION ANGLE FOR RMi IN RAUIANS 

THETA4 = UEFLECTIUN ANGLE FOR RK3 IN RADIANS 

BETA4 = SHOCK! WEAK ) ANGLE FOR Rm3 IN RAD IANS 

TOL = CONVERGENCE CRITERIA PUR P4/Pi = PE/Pl 


OUTPUT 

1 ERROR = 0 NO ERROR 

1 ONLY 1 SOLUTION POUND 

2 CGNVERGENGe CRITERIAN nut Pound 

3 NO SOLUIION POUND 



0 1 
0 2 
0 3 

0 4 

0 5 

0 6 
U 7 
0 8 
0 9 

O ,10 
U li 
0 12 
0 13 

0 14 

O ,15 
U 16 
0 17 

o ia 

0 19 

0 20 
U 21 
U 22 
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-p- U> 


c 

I T = 1 
ISW=0 
McTH2 = 0 
i SuLN= 1 

0 I HOT A= . 1 
UTHET=.l 

1 SINB2=S1N<BETA2> 

PtUPi=PRATl U( GAMMA, RMi , SINB2 ) 

THETrt4=THET A I-THETAF 

C CALCULATE WEAK SHOCK bULUTION 

1 ERROR-=- 1 

bETA4=FlNUb(GAMMA,RM3,A83(THETA4l , lbGLN, IERRUkI 
If (IERkUk-3) 2.14.1A 

2 P4UPj=PkATI U( GAMMA, RMS, S 1N( BET A41 1 
P4GP1=P40P3*P30P1 
IP (AbS(P20Pl-P4CPll-T0L) 12,3,3 
IP (P2CP1-P4CP1) 4,12,7 
THtTAF=THETAF+D THETA 
y- (JS«) 6,3,10 

3 I 3W= 1 

Gu TO 10 

6 OIHETm-UTHETA/ 10. 

THETAP=THETAF-OTHETA 
GO TO 10 

7 THETAF=THETAF-DTHETA 

IF ( 1 S w 1 10, 9, a 

a DTHETA=iO THETA/10. 

THETAP=THlTAF*DTPETA 
Go TO 10 
3 ISW=-1 

c calculate strong shuck sulutiln 

10 I EKkOR=— 1 

bt f A2- P I NUB ( GAMMA, RMi , ABM THETAP) ,2,1 ckKUR I 
1 l = ITtl 

it i 1 h RKOR- 3 I 11,20,20 

11 IP (IT-301 1,1,12 

C ITERATION ON P4=P3 IS CUMPLtlEL) 

It THFDEG=THETAF*180. /3.141b 

kt TORN 

C USE 2 STRONG ShUCK SOLUI IONS IP Pt.GT.P4 

1j IF (P20P1.LT .P40PI) RETURN 

IF (METH2.GT.0I RETURN 
ME TH2= 1 
THE TAP=0 . 

BETAt= I. 570B 
1 SuLN=2 
U THE T A =- . 1 
UT HE T = . 1 

I S W— 0 

II = 1 

WRITE ( o ,21 ) 

GU T U 1 

14 IF (1SW) 19,13,13 

C bAU IN IT 1AL GUESS 

1 3 IhETAF= THETAF+OTPET 

16 IP ( THE TAP-THETA I) 10,17,17 

C 1HETAF INCREMENTEO TCC FAR 

17 IP (DTHET-.OOU l3,l<J,lb 

lb UTHL T=D1 HET/2. 

01 HE Ta=SIGN( DTHET.DTHETA) 

THE T AF =THET A F-DT PET 
GO To 16 


U 23 
U 24 
U 23 
0 26 
U 27 
0 28 
0 29 

0 30 

U bl 
0 32 

U 33 
U 34 
U 33 
U 36 
0 37 

U 3b 
U 39 
U 40 
U 41 
U 42 
0 43 

0 44 

0 4P 
0 4o 
0 47 

U 48 
U 49 
U 30 
0 31 

0 32 

0 33 

0 54 

0 55 

0 56 

U 57 
0 5b 
0 59 

0 60 
U 61 
0 62 
0 63 

U 64 
0 65 

U 66 
U 67 
U 68 
0 69 

0 70 

0 71 

0 72 

0 73 

0 74 

0 75 

0 76 

0 77 

0 78 

0 79 

0 80 
0 81 
0 82 
0 83 

0 84 

0 85 
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G HA V fc INCREMENTED THE TAP TUG FAST Q 86 

La... OJ HE I A =01 HET A/ 2. 0 a? 

IHETAF=THETAF-ISW*DTHETA Q 88 

. . iF J ABS { DTHETA}- .001 J 13,13,10 Q 89 

C N0_ SOLUTION FUR B E T A 2 Q yQ 

2 G IF (IS to) 19,17, 19 091 

C Q 92 

21 FORMAT (/28HTRY 2 STRUNG 8H0C K SOLUTIONS) 0 93 

END q 94- 


PART VIII - PROGRAM APPLICATIONS 


This section briefly discusses where the various types of interference patterns may 
occur and how the programs may be used to compute the peak pressures and peak heat 
transfer on a practical configuration such as the mated space shuttle (orbiter , rockets, 
and fuel tank). Shock interference patterns can occur on the nose and between the indi- 
vidual bodies (during the ascent phase of the trajectory), as shown in figure 11. These 
patterns may also appear on the leading edges of wings and control surfaces, as shown in 
figure 12. The highest interference heating will exist in regions where subsonic flow is 
present and either a supersonic jet (type IV) or attaching shear layer (type III) is formed. 

The undisturbed flow field over a complex vehicle can be computed with various 
methods. In fact, complete numerical solutions of the inviscid equations for an arbitrary 
body at angle of attack are currently under development. Various approximate techniques 
such as in references 20 and 21 are available now. Once the conditions in the local invis- 
cid flow field, the state of the surface boundary layer, and the approximate location and 
type of interference pattern are known, the peak pressure and heating can be determined 
by using the appropriate program. It should be noted, however, that these computer pro- 
grams must rely on some empirical inputs such as impinging shock angles, shock length, 
and in the case of the supersonic jet, some relation for the shock standoff distance. Real- 
gas effects must obviously be considered for high velocities. 

Langley Research Center, 

National Aeronautics and Space Administration, 

Hampton, Va., February 12, 1973. 
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(d) Type IV. 


(e) Type V. 

Figure 1.- Six types of shock interference patterns. 


(f) Type VI. 



M 


00 



Type VI 
expansion wave 
impingement 


Bow shock 


Type V shock 
impingement 


Type IV 
supersonic jet 
impingement 


Type III shear- 
layer attachment 



Type II shock 
impingement 


Type I shock 
impingement • 


Figure 2.- Location of the types of interference on a hemisphere. 
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Figure 5.- Type III shock interference pattern. 






















Figure 6.- Type IV shock interference pattern. 




Figure 8.- Normal jet impingement model for M-j < 2.8 (ref. 14) 
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